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