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

Ответы

zaharuch 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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

nurija090675 22.05.2019 08:40

уеее1 22.05.2019 08:40

KerimovaLuiza919 04.10.2019 16:10

кристина2164 04.10.2019 16:10

vikaganzha 04.10.2019 16:10

Nadezhda6313 04.10.2019 16:10

morkovcha 04.10.2019 16:10

lyazkaiman0309 04.10.2019 16:10

Как зайти на электроный журнал? подробно...

semabulov 04.10.2019 16:10

yasuga 04.10.2019 16:10