Напишите программу на языке программирования Pascal. Дано натуральное число n, целые числа а₁, а₂, ..., . Вычислить сумму чисел а₁, а₂, ..., , кратных 3.

Question

Информатика

Эсмеральда

13 апреля, 21:50

Напишите программу на языке программирования Pascal. Дано натуральное число n, целые числа а₁, а₂, ..., . Вычислить сумму чисел а₁, а₂, ..., , кратных 3.

+1

Ответы (1)

Знаете ответ?

Мардарий · Answer 1

Var n, i, k, s : integer;

Begin

s:=0;

Write ('N? ') ; Readln (n) ;

Writeln ('Вводите a1 a2 ... aN') ;

For i:=1 to n do

Begin

Readln (k) ;

If k mod 3 = 0 then s:=s+k;

end;

Writeln ('Сумма кратных трём: ', s) ;

end.