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

portal1234 portal1234    2   27.06.2019 03:40    0

Ответы
Барбоси Барбоси  21.07.2020 18:45
Var a,b,c:integer;
beginb:=100;
writeln('введите число');
readln(a);
repeatif (a>b) then writeln(b);
b:=b+1;
until (b>999);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика