Lola664
07.06.2021 04:04

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
alexandrustino1
02.10.2020 13:25
Var i,sum:integer;
begin
sum:=0;
repeat
   readln(i);
if (i mod 6 = 0) or (i mod 11 = 0) then
   sum:=sum+i;
until(i<>0);
write(sum);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота