Ребятки, помогите пожалуйста! Нужно решить задачку с помощью программирования языка Паскаля
Найдите любое трёхзначное число, кратное заданному P и не равное ему.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад