Дана программа на языке ПАСКАЛЬ:
Var n, i, S: integer;
BEGIN
n:=9; S:=0;
for i:=1 to n do
if i mod 3 = 0 then S:=S+i;
writeln(S);
END.
Тогда результатом работы этой программы является:
К сожалению, у нас пока нет статистики ответов на данный вопрос,
но мы работаем над этим.