Question

Составить программу для вычисления суммы квадратов чисел от 1 до 15. Функция возведения в квадрат sqr(); Var , , : ; Begin :=0; For := to do Begin ; ; End; Writeln(' =', ); End. Там, где пробелы, вставить что нужно

Answer 1

Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
End.

2) второе решение 
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.

Answer 2

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

program SumOfSquares;

var
  i, sum: integer;

function sqr(x: integer): integer;
begin
  sqr := x * x;
end;

begin
  sum := 0;

for i := 1 to 15 do
  begin
    sum := sum + sqr(i);
  end;

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

В этой программе используется цикл `for`, который проходит значения от 1 до 15, вызывая функцию `sqr` для каждого числа и прибавляя результат к переменной `sum`. В конце программа выводит сумму квадратов чисел от 1 до 15 на экран с помощью процедуры `writeln`.