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

(Pascal)

Question

Генуша

23 января, 08:44

+5

Ответы (1)

Знаете ответ?

Майка · Answer 1

Var a, b:integer;

begin

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

readln (a) ;

for b:=100 to 999 do

begin

if b
end;

end.

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