Question

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

Answer 1

Var a,p,i :integer;
begin
readln(p);
for a:=100 to 999 do
if (a mod p=0) and (a<>p) then
i:=a ;
writeln(i);
end.