eliza1404
17.03.2023 10:00

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
oleglebedev90
04.08.2020 09:57
Var n,s: integer;
begin
  s:=0; n:=0;
  repeat
    if ((n mod 8)=0) and ((n mod 10)=6) then s:=s+n;
    read(n);
  until n=0;
  writeln('сумма: ',s);
end.

16 32 23 24 15 0
сумма: 16
0,0(0 оценок)
Ответ:
medvedevastasy
04.08.2020 09:57
Vark,a:integer;begink:=0;While true do beginread(a);if a=0 then break;if (a mod 8=0) and (a mod 10=6) then k+=1;end;print(k)end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота