Question

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

Answer 1

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

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