Question

ЗАДАНИЕ НА ПАСКАЛЕ: написать программу и найти сумму целых чисел от 40 до 120, кратных 11

Answer 1

Ответ:

PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1

begin

   Range(40, 120).Where(p -> p mod 11 = 0).Sum.Println;

end.

Answer 2

Ответ:

Объяснение:

program sum;

var i,s:integer;

begin

 s:=0;

 i:=0;

 for i:=40 to 120 do

 begin

     s:=s+i;

 end;

writeln(s);

end.

Answer 3

Конечно! Вот пример программы на языке Pascal, которая находит сумму целых чисел от 40 до 120, кратных 11:

pascalCopy code
program SumOfMultiples;
var
  num, sum: integer;
begin
  sum := 0;

  for num := 40 to 120 do
  begin
    if (num mod 11 = 0) then
      sum := sum + num;
  end;

  writeln('Сумма целых чисел от 40 до 120, кратных 11: ', sum);
end.

Программа использует цикл for для перебора всех чисел от 40 до 120 и проверяет, является ли текущее число кратным 11 (проверка num mod 11 = 0). Если число кратно 11, оно добавляется к общей сумме. В конце программы выводится результат - сумма кратных 11 чисел.