Напишите программу на языке программирования Pascal. Дано натуральное число n, целые числа а₁, а₂, ..., [tex] a_{n} [/tex] .Вычислить сумму чисел а₁, а₂, ..., [tex] a_{n} [/tex], кратных 3.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.