турбо паскаль.

Найти последнее трёхзначное число, кратное заданному Р и не равное ему.

Question

Лиля

7 мая, 03:08

+1

Ответы (1)

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

Настюня · Answer 1

Var a, p, i : integer;

begin

readln (p) ;

for a:=100 to 999 do

if (a mod p=0) and (ap) then

i:=a;

writeln (i) ;

end.

турбо паскаль.Найти последнее трёхзначное число, кратное заданному Р и не равное ему.