Найти все трёхзначные числа, которые при увеличении - вопрос №5517012 от Аааа1111111111 19.03.2022 07:02

Question

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

Аааа1111111111 · Answer

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 writeln(i); end.  ...