Question

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

Answer 1

Ответ:

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');

readln(n);

k:=0;

For i:=1 to n do begin

readln (a);

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

end;

Writeln('Сумма чисел кратных 6 - ',k);

End.

Answer 2

var

 size, num, sum, i: integer;

 

begin

 sum := 0;

 read(size);

 for i := 1 to size do

 begin

   read(num);

   if num mod 6 = 0 then

     inc(sum, num)

 end;

 

 write(sum)

end.