Найти все целые трехзначные числа, которые меньше заданного числа. С помощью цикла с послеусловием

Question

Шура

15 мая, 00:12

+2

Ответы (1)

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

Ефимья · Answer 1

Var a, b, c:integer;

beginb:=100;

writeln ('введите число') ;

readln (a) ;

repeatif (a>b) then writeln (b) ;

b:=b+1;

until (b>999) ;

end.