Программирование на языке Паскаль. Заставить пользователя ввести отрицательное число. Помогите пожалуйста:)
Программирование на языке Паскаль. Заставить пользователя ввести отрицательное число. Помогите пожалуйста:)
Гость
Ответ(ы) на вопрос:
ГостьProgram asd;
USES crt;
var a,b,s:real;
BEGIN
Repeat
Writeln('Введите отр. число, пока не будет введено, буду долбать! Я жду! ');
Readln(a);
until a<0;
If a<0 then Writeln('Так бы сразу, молодец :) ');
END.
Вот так :)
Гостьvar a:integer;
begin
repeat
write('Введите число: ');
read(a);
if a>0 then writeln('Положительное число!');
until a<0;
end.
Не нашли ответ?
Похожие вопросы