Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В по...
Напишите
программу, которая в последовательности натуральных чисел определяет
сумму чисел, кратных 3. Программа получает на вход количество чисел в
последовательности, а затем сами числа. В последовательности всегда
имеется число, кратное 3. Количество чисел не превышает 100. Введённые
числа не превышают 300. Программа должна вывести одно
число — сумму чисел, кратных 3.
Входные данные: 3,12,25,9
Выходные данные: 154
Гость
Ответ(ы) на вопрос:
Гостьvar a,i,n,sum: integer;
begin
writeln('Введите количество чисел');
readln(n); sum:=0;
for i:=1 to n do begin
writeln('Введите число');
readln(a);
if a mod 3=0 then sum:=sum+a;
end;
writeln('Сумма чисел кратных 3 равна ', sum);
readln
end.
Не нашли ответ?
Похожие вопросы