Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 70 БАЛЛОВ для N введенных с клавиатуры чисел найти сумму положительных, кратных 3

Answer 1

program raf105;

var a,b:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

a:=1;

while a<>0 do

begin

 readln(a);

 if (a>0) and ((a mod 3)=0)

   then b:= b+a;

end;

writeln('Сумма положительных чисел, кратных трём: ',b);

end.

Язык программирования PascalABC

Answer 2

Конечно, помогу! Вот программа на языке Pascal, которая решает задачу:

pascalCopy code
program SumOfMultiples;
var
  N, number, sum: integer;
begin
  sum := 0; // Инициализируем сумму нулем
  writeln('Введите количество чисел (N): ');
  readln(N); // Считываем количество чисел
  
  // Цикл для ввода чисел и подсчета суммы положительных, кратных 3
  writeln('Введите ', N, ' чисел:');
  for var i := 1 to N do
  begin
    readln(number);
    if (number > 0) and (number mod 3 = 0) then
      sum := sum + number;
  end;
  
  // Выводим результат
  writeln('Сумма положительных чисел, кратных 3: ', sum);
end.

Программа предлагает пользователю ввести количество чисел N, затем ожидает ввод N чисел с клавиатуры. Далее проходит по введенным числам и считает сумму положительных чисел, которые кратны 3. Результат выводится на экран.

Скопируйте код в среду программирования, поддерживающую язык Pascal (например, Free Pascal) и запустите программу для проверки.