• Вопрос по информатике:

    Вывести на экран количество чисел делящихся на 3 в промежутке от 50 до n

    • Автор:

      avila

  • Ответ:

    Var i,n :integer;

    Begin

    Read(n);

    Count:=0;

    For i:=50 to n do

    If i mod 3 = 0 then inc(count);

    Write(count);

    End.

    • Отвечал:

      emersonevfb
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска