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

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

Question

Галюха

21 сентября, 05:16

+4

Ответы (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.

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