Question

Program zadanie3;
var n, s, k, g: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(g);
if (g mod 6 = 0) then
s:=s+g;
end;
writeln(s);
end.
Запускаем отладку программы, исправляем ошибки. Вводим данные 3, 12, 25, 6. Программа должна выдать ответ: 18

Answer 1

Так а в чём собственно ошибка? Всё работает как надо.