Найти все трехзначные числа которые при увеличении на 1 делятся на 2,и при увеличении на 2 делятся на 3 , вывести на экран эти числа и их количество.
Ответы на вопрос
Ответил fatukah
0
вот полная
uses crt;
var
i,k:integer;
begin
for i:=100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then begin
writeln(i);
k:=k+1;
end;
writeln('кол-во',k)
end.
uses crt;
var
i,k:integer;
begin
for i:=100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then begin
writeln(i);
k:=k+1;
end;
writeln('кол-во',k)
end.
Ответил karenchelovek
0
спс
Новые вопросы