Преобразовать программу так, чтобы пользователь мог ввести только реальные значения...

Question

Преобразовать программу так, чтобы пользователь мог ввести только реальные значения скорости автомобиля. Условие: скорость >20, но при этом <200 в паскале.

Comments

и где программа?

Answer 1

Var v:real;
begin
Write('Введите v, v>20,v<200: ');<br>Readln(v);
while (v<=20)or(v>=220) do
 begin
 Write('Введите v, v>20,v<200: ');<br> Readln(v);
 end;
writeln('v = ',v);
end.

Пример:
Введите v, v>20,v<200: 15<br>Введите v, v>20,v<200: 550<br>Введите v, v>20,v<200: 150<br>v = 150

Answer 2

Program
Uses crt;
Var x;
Begin
Writeln('Введите a, a>20,a<200');<br>Read(a);
End.

Comments

Там вместо a-x