kirillmajer2007
31.12.2021 10:51

Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 0.программа получает на вход натуральные числа, количество введеных чисел неизвестно,последовательность чисел заканчивается числом 0 (0-признак окончания ввода,не входит в последовательность)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Kovalenko2001N
04.10.2020 00:35
Var
    n, s: integer;

begin
    s := 0;
    repeat
        readln(n);
        if n mod 3 = 0 then s := s + n;
    until n = 0;
    writeln(s)
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота