Найти все целые трехзначные числа, которые меньше заданного числа. С помощью цикла с послеусловием
Найти все целые трехзначные числа, которые меньше заданного числа. С помощью цикла с послеусловием
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer;
beginb:=100;
writeln('введите число');
readln(a);
repeatif (a>b) then writeln(b);
b:=b+1;
until (b>999);
end.
Не нашли ответ?
Похожие вопросы