Question

Напишите программу, которая в последовательности целых чисел определяешь сумму чисел, а также количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000

Answer 1

var

 A: array [1..1000] of Integer;

 i, ik, s, c: Integer;

begin

 WriteLn ('Введите последовательность целых чисел, 0 для окончания ввода: ');

 i := 0;

 repeat

   i := i + 1;

   ReadLn (A [i]);

 until A [i] = 0;

 ik := i - 1;

 s := 0;

 c := 0;

 for i := 1 to ik do begin

   s := s + A [i];

   if (A [i] mod 5 = 0) or (A [i] mod 9 = 0) then

     c := c + 1;

 end;

 WriteLn;

 WriteLn ('Сумма чисел = ', s);

 WriteLn ('Количество чисел, кратрных 5 или 9 = ', c);

end.