Question

Напишите программу, которая в последовательности натуральных чисел
определяет сумму всех чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: сумму
всех чисел, кратных 5.

Answer 1

program dsa;

var

 i,s : integer;

 begin

   i := 1;

   s := 0;

   while i <> 0 do

     begin

     read(i);

   if i mod 5 = 0 then

     s := s + i;

   end;

write(s);    

 end.