Question

Напишите программу, которая найдет значение выражения 1*1+2*2...n*n. В паскале.

Answer 1

Program pr_1; 
var i,n,s:integer; 
begin 
readln(n); 
s:=0; 
for i:=1 to n do 
s:=s+i*i; 
writeln('s=',s); 
end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая вычисляет значение выражения \(1^2 + 2^2 + \ldots + n^2\):

program SumOfSquares;

var
  n, sum, i: integer;

begin
  // Вводим значение n
  write('Введите значение n: ');
  readln(n);

// Инициализируем сумму
  sum := 0;

// Вычисляем сумму квадратов от 1 до n
  for i := 1 to n do
  begin
    sum := sum + i * i;
  end;

// Выводим результат
  writeln('Сумма квадратов от 1 до ', n, ' равна ', sum);

// Ждем нажатия клавиши перед выходом
  readln;
end.

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

Обратите внимание, что Pascal - устаревший язык программирования, и в современных условиях рекомендуется использовать более современные языки, такие как Python, Java, C++, и так далее.