Question

Написать программу в PascalABC.NET (используя цикл for), которая будет находить сумму чисел от 1 до 50

Answer 1

Ответ:

Решение на фото

Объяснение:

Answer 2

Конечно! Вот пример программы на PascalABC.NET, которая использует цикл for для нахождения суммы чисел от 1 до 50:

pascalCopy code
program SumOfNumbers;

var
  sum: Integer;
  i: Integer;

begin
  sum := 0;

  for i := 1 to 50 do
  begin
    sum := sum + i;
  end;

  WriteLn('Сумма чисел от 1 до 50 равна: ', sum);
end.

Программа начинает с инициализации переменной sum с нулевым значением. Затем цикл for выполняется от 1 до 50, при каждой итерации прибавляя значение переменной i к переменной sum. В конце программы выводится результат суммы на экран.