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

0 голосов
56 просмотров

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


Информатика (194 баллов) | 56 просмотров
0

постусловие это until?

0

да

0

сможешь решить?

0

не напомните как выглядит цикл с постусловием

0

сначала пишешь repeat, затем какие-то действия, until какое-то условие

0

ясно

Дан 1 ответ
0 голосов
Правильный ответ

Var a,b,c:integer;
beginb:=100;
writeln('введите число');
readln(a);
repeatif (a>b) then writeln(b);
b:=b+1;
until (b>999);
end.

(8.6k баллов)
0

если возможно, поставьте лучший ответ ;D

0

спасибо)