Question

Нужно написать программу на pascal.Даны натуральное число n и вещественные числа а1, а2, а3, ..., аn. Определить сумму квадратов вещественных чисел.

Answer 1

PascalABC.NET 3.4

begin
  var n := ReadInteger('n=');
  var a := ReadArrReal(n);
  var s := a.Select(p -> p*p).Sum;
  Writeln(s)
end.

Answer 2

Для решения этой задачи вам нужно написать программу на языке Pascal, которая принимает на вход натуральное число n и n вещественных чисел a1, a2, a3, ..., an, а затем вычисляет и выводит сумму квадратов этих чисел. Вот пример такой программы:

pascalCopy code
program SumOfSquares;

var
  n, i: integer;
  a, sumOfSquares: real;

begin
  // Ввод количества чисел
  writeln('Введите количество чисел (n): ');
  readln(n);

  // Инициализация переменной для хранения суммы квадратов
  sumOfSquares := 0;

  // Ввод и вычисление суммы квадратов вещественных чисел
  writeln('Введите вещественные числа: ');
  for i := 1 to n do
  begin
    readln(a);
    sumOfSquares := sumOfSquares + a * a; // добавляем квадрат числа к сумме
  end;

  // Вывод результата
  writeln('Сумма квадратов вещественных чисел: ', sumOfSquares);
end.

Программа сначала запрашивает у пользователя количество чисел n. Затем она просит ввести n вещественных чисел a1, a2, a3, ..., an. После этого программа вычисляет сумму квадратов этих чисел и выводит результат на экран.

Пример использования:

diffCopy code
Введите количество чисел (n):
5
Введите вещественные числа:
1.5
2.0
-3.5
4.2
2.8
Сумма квадратов вещественных чисел: 36.69