Напишите программу, которая в последовательности из 10 натуральных чисел определяет сумму чисел определяет сумму чисел, кратных 5. в последовательности всегда имеется число, кратное 5 программа должна вывести одно число сумму чисел кратных 5

1

Ответы и объяснения

2014-04-15T16:36:40+00:00
Var
  summ, i, number : integer;
begin
  summ := 0;
  for i := 1 to 10 do
  begin
    readln(number);
    if number mod 5 = 0 then
      summ := summ + number;
  end;
  writeln('Сумма: ', summ);
end.