Турбо паскаль. найти последнее трёхзначное число, - вопрос №270849 от 4ae444ka 21.04.2020 15:01

Question

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

4ae444ka · Answer

Var a,p,i :integer;beginreadln(p);for a:=100 to 999 doif (a mod p=0) and (a p) then i:=a ;writeln(i);end....