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

Question

Пётр Колесников

Информатика

5 мая, 08:40

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

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Глеб Родионов · Answer 1

program aver;

var s, n, k : integer;

begin

n: = 1; / / значение числа для входа в цикл while

s: = 0; / / сумма чисел, удовлетворяющих условию

k: = 0; / /счетчик чисел

writeln ('Введите серию чисел,');

writeln ('заканчивая ввод каждого числа нажатием на Enter');

while (n 0) and (k < 1000) do

begin

read (n);

if n > 30000 then

begin

writeln ('Число не должно быть больше 30000');

read (n);

end;

if (n mod 10 = 4) and (n mod 6 = 0) then s: = s + n;

k: = k + 1;

end;

writeln ('сумма = ', s)

end.