Программирование на языке паскаль. заставить пользователя ввести отрицательное число. : )

LisuNYfka3 LisuNYfka3    3   29.05.2019 12:30    12

Ответы
VanessaQueen VanessaQueen  01.10.2020 14:17
Program asd;
USES crt;
var a,b,s:real;
BEGIN
Repeat
Writeln('Введите отр. число, пока не будет введено, буду долбать! Я жду!  ');
Readln(a);
until a<0;
If a<0 then Writeln('Так бы сразу, молодец :) ');
END.

Вот так :)
ПОКАЗАТЬ ОТВЕТЫ
dashakid1 dashakid1  01.10.2020 14:17
Var a:integer;
begin
repeat
write('Введите число: ');
read(a);
if a>0 then writeln('Положительное число!');
until a<0;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика