Напишите
программу, которая в последовательности натуральных чисел определяет
сумму чисел, кратных 3. Программа получает на вход количество чисел в
последовательности, а затем сами числа. В последовательности всегда
имеется число, кратное 3. Количество чисел не превышает 100. Введённые
числа не превышают 300. Программа должна вывести одно
число — сумму чисел, кратных 3.
Входные данные: 3,12,25,9
Выходные данные: 154
Ответы на вопрос
Ответил Vladiener
0
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.
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.
Новые вопросы
Алгебра,
2 года назад
Химия,
2 года назад
Биология,
9 лет назад
Алгебра,
9 лет назад
Литература,
10 лет назад