Лучший ответ
-
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 0
купи_слона 7 (30121)52396 10 лет
В гугле миллион ответов на эту и подобные задачи.
Если кратко, то создаёшь одномерный массив из 30 элементов и в цикле for пишешь условие if массив mod 3 = 0, и если условие выполняется, то суммируешь.