miap
Опубликовано 7 лет назад по предмету Информатика от miap


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

  1. Ответ
    Ответ дан sinbad7

    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.

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц