Предмет: Информатика,
автор: варвараап
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. плиззз срочно дам много баллов
Ответы
Автор ответа:
0
var
n, i, a, s: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if a mod 6 = 0 then
s := s + a;
end;
writeln(s);
end.
n, i, a, s: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if a mod 6 = 0 then
s := s + a;
end;
writeln(s);
end.
Интересные вопросы
Предмет: Математика,
автор: ayana0512200
Предмет: Физика,
автор: sasalynnikova
Предмет: Математика,
автор: marinashvetsova2008
Предмет: Математика,
автор: defrankoshalopa
Предмет: Математика,
автор: levonmargaryan