Question

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

Answer 1

Я могу помочь вам написать программу на Паскале. Вот пример программы, которая в последовательности целых чисел вычисляет сумму всех чисел, которые кратны 6 или 11:

program SumOfMultiples; var n, sum: integer; begin sum := 0; // инициализируем сумму нулем read(n); // читаем первое число while n <> 0 do // пока число не равно нулю begin if (n mod 6 = 0) or (n mod 11 = 0) then // если число кратно 6 или 11 sum := sum + n; // добавляем его к сумме read(n); // читаем следующее число end; writeln(sum); // выводим сумму на экран end.

Вы можете найти больше информации о синтаксисе и вводе-выводе Паскаля на этих сайтах: [Pascal Programming/Input and Output](https://en.wikibooks.org/wiki/Pascal_Programming/Input_and_Output), [Pascal Tutorial](https://www.tutorialspoint.com/pascal/index.htm), [Pascal - Basic Syntax](https://www.tutorialspoint.com/pascal/pascal_basic_syntax.htm). Надеюсь, это вам поможет.