Question

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

Answer 1

Ответ:

var a,s: integer;

begin

s:=0;

repeat

write('Введите число: ');

readln(a);

if (a mod 5 = 0) then s:=s+a;

until a=0;

writeln('Сумма всех чисел, кратных 5: ',s);

end.