Question

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

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.