турбо паскаль. Найти последнее трёхзначное число, кратное ...
турбо паскаль.Найти последнее трёхзначное число, кратное заданному Р и не равное ему.
Есть ответ
18.12.2022
146
Ответ
Var a,p,i :integer;beginreadln(p);for a:=100 to 999 doif (a mod p=0) and (ap) then i:=a ;writeln(i);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022