Лучший ответ

    1.  2 0

    westernw777 7 (36166)4724 10 лет  

    Program Summax3;
    Uses Crt;

    Var Counter : Integer;
    Var Sum : Integer;

    Begin
    For Counter := 1 to 30 do
      Begin
        If Counter mod 3 = 0  then
         Begin
           Sum := Sum + Counter;
         End;
      End;
    Writeln(Sum);
    Readln;
    End.

    писал пока не видел ответ слона, да и никогда в паскале не писал программы :D
    но думаю вроде всё правильно, пара минут =/ (но это понятно что вы только начали учить, и всётаки)
    P.S. да в IF Begin-end не надо, но это так, для уверенности))

Ответы

    1.  1 0

    купи_слона 7 (30121)52396 10 лет  

    В гугле миллион ответов на эту и подобные задачи.
    Если кратко, то создаёшь одномерный массив из 30 элементов и в цикле for пишешь условие if массив mod 3 = 0, и если условие выполняется, то суммируешь.

Похожие вопросы

Рейтинг@Mail.ru Top.LV PULS.LV Professional rating system