RSL1
24.05.2020 21:25

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
SosaLegor312lok
03.07.2020 14:38
Var
  sum, x : integer;
begin
  sum := 0;
  repeat
    read (x);
    if (x mod 6 = 0) and (x mod 10 = 2) then sum := sum + x;
  until x = 0;
  write (sum);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота