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.
выдаёт ошибку: Ошибка времени выполнения: Входная строка имела неверный формат и указывает на как решить проблему ?

Кот15150019 Кот15150019    2   19.04.2020 10:16    0

Ответы
LIZA31012006 LIZA31012006  13.10.2020 11:44

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);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика