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

Question

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

Comments

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

---

да

---

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

---

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

---

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

---

ясно

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.

Comments

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

---

спасибо)