Напишите программу, которая в последовательности натуральных чисел определяет сумму всех...

0 голосов
20 просмотров

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на


вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4


image

Информатика (25 баллов) | 20 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var
    num, sum: integer;

begin
    repeat
        readln(num);
        if (num mod 4 = 0) and (num mod 10 = 6) then sum := sum + num;
    until num = 0;
    writeln(sum);
end.

(55.0k баллов)