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

157

427

Посмотреть ответы 2

Ответы на вопрос:

nano1030

Информатика

4,6(37 оценок)

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.

helpmy123

Информатика

4,4(74 оценок)

фотография не то это какой класса

150 000+ пользователей

Оформить подписку