Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6. Паскаль , программа должна быть рабочей,если будет рабочей дам еще 15 баллов
Answers & Comments
Ответ:
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.
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.