Напишите программу которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 6. Кол-во чисел не превышает 100. Введённые числа не привышают 300. Программа должна ввести одно число - сумму чисел кратных 6

Question

Информатика

Магдалина

6 августа, 11:39

Напишите программу которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 6. Кол-во чисел не превышает 100. Введённые числа не привышают 300. Программа должна ввести одно число - сумму чисел кратных 6

+3

Ответы (1)

Знаете ответ на вопрос?

Натоха · Answer 1

Паскаль

var a, s, n, i:integer;

begin

s:=0;

write ('kol-vo chisel:') ; read (n) ;

if n>100 then writeln ('error!') ;

begin

writeln ('vvedite chisla') ;

for i:=1 to n do

begin

read (a) ;

if a>300 then write ('error!') ;

if (a mod 6=0) then s:=s+a;

end;

write ('summa=', s) ;

end;

end.