Нужно решить с программирования языка паскаля найдите любое трёхзначное число, кратное заданному p и не равное ему.

mdebnu mdebnu    2   29.05.2019 09:00    0

Ответы
Jirnyi Jirnyi  28.06.2020 09:50
Uses crt;
var i,n,p:integer;
begin
read(p);
i:=100;
while i<=999 do
begin
if (i mod p=0) and (i<>p) then
begin
n:=i;
break;
end;
inc(i);
end;
writeln(n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика