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

Question

75

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

в избранное ссылка

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

osvaldo-garsia · Accepted Answer

93

osvaldo-garsia

19 февраля 2024

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.

комментировать

в избранное ссылка отблагодарить