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

(Pascal)

Question

Коляня

5 февраля, 16:55

+2

Ответы (1)

Знаете ответ на вопрос?

Козьмич · Answer 1

Var a, b:integer;

begin

writeln ('введите число') ;

readln (a) ;

for b:=100 to 999 do

begin

if b
end;

end.

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