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

Question

Бонифат

7 октября, 10:52

+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.