Question

Напишите программу которая в последовательности натуральных 20 чисел определяет сумму чисел кратных 6
На языке Паскаль

Answer 1

1) Решение с массивами

var

 a: array[1..20] of longint;

 i, sum: longint;

begin

 for i:=1 to 20 do

 begin

   read(a[i]);

   if a[i] mod 6=0 then sum:=sum+a[i];

 end;

 writeln(sum);

end.

Постановка задачи позволяет отказаться от использования массивов и работать только с тремя целочисленными переменными.

2) Решение без массивов

var

 x, i, sum: longint;

begin

 for i:=1 to 20 do

 begin

   read(x);

   if x mod 6=0 then sum:=sum+x;

 end;

 writeln(sum);

end.