Program usi; Var d,r: real; Begin writeln('ВЕДИТЕ ЧИСЛ'); Readln (d); if d>0.655 THEN...

Question

Program usi; Var d,r: real; Begin writeln('ВЕДИТЕ ЧИСЛ'); Readln (d); if d>0.655 THEN write(r=sqrt(d)) else IF d<=0.65 THEN write (r=3-2*d); readln(d) End. выдаёт ошибку: Ошибка времени выполнения: Входная строка имела неверный формат и указывает на readln. Помогите как решить проблему ?

Comments

у меня код спокойно работает

---

а какая задача?

Answer 1

Ответ:

program rad;

var d: real;

begin

writeln('Введите число');

readln(d);

if d>0.655 then write ('r=', sqrt(d));

if d<0.655 then write ('r=', 3-2*d);</p>

readln;

end.