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

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

Задать свой вопрос
Волошун Антон
и где программка?
2 ответа
Var v:real;
begin
Write('Введите v, vgt;20,vlt;200: ');
Readln(v);
while (vlt;=20)or(vgt;=220) do
 begin
 Write('Введите v, vgt;20,vlt;200: ');
 Readln(v);
 end;
writeln('v = ',v);
end.

Пример:
Введите v, vgt;20,vlt;200: 15
Введите v, vgt;20,vlt;200: 550
Введите v, vgt;20,vlt;200: 150
v = 150
Program
Uses crt;
Var x;
Begin
Writeln('Введите a, agt;20,alt;200');
Read(a);
End.
Максим Кисслев
Там заместо a-x
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт