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

Question

Шура

14 июля, 06:57

+5

Ответы (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.