Question

Напишите программу на языке программирования Pascal. Дано натуральное число n, целые числа а₁, а₂, ...,  .Вычислить сумму чисел а₁, а₂, ..., , кратных 3.

Answer 1

Var n,i,k,s : integer;
Begin
  s:=0;
  Write('N ? '); Readln(n);
  Writeln('Вводите a1 a2 ... aN');
  For i:=1 to n do
  Begin
    Readln(k);
    If k mod 3 = 0 then s:=s+k;
  end;
  Writeln('Сумма кратных трём: ',s);
end.

Answer 2

Вот пример программы на языке программирования Pascal, которая вычисляет сумму чисел, кратных 3, из заданного списка целых чисел:

program SumOfMultiplesOfThree;

var
  n, i, number, sum: integer;

begin
  writeln('Введите количество чисел:');
  readln(n);
  
  sum := 0;
  
  writeln('Введите ', n, ' чисел:');
  for i := 1 to n do
  begin
    readln(number);
    if number mod 3 = 0 then
      sum := sum + number;
  end;
  
  writeln('Сумма чисел, кратных 3, равна ', sum);
end.

В этой программе мы сначала запрашиваем у пользователя количество чисел (n), а затем просим ввести сами числа. Затем мы проверяем каждое число на кратность 3 с помощью оператора mod. Если число делится на 3 без остатка, то мы добавляем его к сумме. В конце программы выводим полученную сумму.

Примечание: При написании программы на языке Pascal важно учитывать синтаксис и правильно оформлять код. Убедитесь, что вы используете правильные ключевые слова, операторы и синтаксические конструкции.