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

adelina2001levchuk adelina2001levchuk    2   02.09.2019 08:10    2

Ответы
pennycat pennycat  06.10.2020 11:27
Var
  n, a, s,i: integer;
 
begin
  s := 0;
  read(n);
  for i := 1 to n do
  begin
    read(a);
    if(a mod 3 = 0) then s := s + a;
  end;
  write(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика