Question

Паскаль Задача Организовать ввод n натуральных чисел с клавиатуры и определить сумму кратных трем ​

Answer 1

Ответ:

PascalABC.NET

begin

 var A := ReadSeqInteger('Вводите последовательность: ', ReadInteger('укажите длину последовательности: '));

 A.Where(x -> x mod 3 = 0).Sum.Println

end.

Answer 2

Привет, это Bing. Я могу помочь вам с решением задачи на Паскале. Задача состоит в том, чтобы организовать ввод n натуральных чисел с клавиатуры и определить сумму кратных трем. Вот один из возможных способов решения этой задачи: ```pascal program SumOfMultiplesOfThree; var n, i, x, sum: integer; begin writeln('Введите количество чисел: '); readln(n); sum := 0; for i := 1 to n do begin writeln('Введите ', i, '-е число: '); readln(x); if x mod 3 = 0 then sum := sum + x; end; writeln('Сумма чисел, кратных трем, равна: ', sum); end. ``` Этот код сначала объявляет переменные n, i, x и sum типа integer. Затем он запрашивает у пользователя ввести количество чисел n и считывает его. После этого он инициализирует переменную sum нулевым значением и начинает цикл for от 1 до n. В каждой итерации цикла он запрашивает у пользователя ввести очередное число x и считывает его. Если x делится на 3 без остатка, то он прибавляет x к sum. По окончании цикла он выводит на экран значение sum, которое является искомой суммой чисел, кратных трем.