Найти все трёхзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.

Question

Ирина Смирнова

Информатика

20 августа, 19:11

Найти все трёхзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Айша Михайлова · Answer 1

Uses

CRT;

Var

i: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

write (i:5);

end.