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

Question

Информатика

Ефросиныч

11 мая, 07:28

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

+3

Ответы (2)

Знаете ответ на вопрос?

Михей · Answer 1

Program

Uses crt;

Var x;

Begin

Writeln ('Введите a, a>20, a<200') ;

Read (a) ;

End.

Елизар · Answer 2

Var v:real;

begin

Write ('Введите v, v>20, v<200: ') ;

Readln (v) ;

while (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