Турбо паскаль.Найти последнее трёхзначное число, кратное заданному Р и не равное ему.
Турбо паскаль.
Найти последнее трёхзначное число, кратное заданному Р и не равное ему.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы