Напишите программу, которая в последовательности целых чисел вычисляет сумму всех чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 5 или 9.
антагонист:
то есть если я введу 1 2 3 5 9, то он мне выведет 14?
Ответы
Ответ дал:
13
program a;
var a,b:integer;
beginwriteln('введите числа окончив последовательность нулём');
readln(a);
b:=0;
while (a<>0) do beginif
((a mod 5 = 0) or (a mod 9 = 0)) then
b:=b+a;
readln(a);
end;
writeln('ответ ' ,b);
end.
var a,b:integer;
beginwriteln('введите числа окончив последовательность нулём');
readln(a);
b:=0;
while (a<>0) do beginif
((a mod 5 = 0) or (a mod 9 = 0)) then
b:=b+a;
readln(a);
end;
writeln('ответ ' ,b);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
7 лет назад