Решите через программу паскаль
Напишите программу, которая в последовательности натуральных чисел
определяет сумму всех чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: сумму
всех чисел, кратных 5
Напишите программу, которая в последовательности натуральных чисел
определяет сумму всех чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: сумму
всех чисел, кратных 5
More Questions From This User See All
Answers & Comments
Ответ:
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.