Question

Помогите написать на Паскаль 1)сумма квадратов от 1 до N S=1+4+9+...n^2

Answer 1

Program programma;
Uses crt;

var n,s,i: integer;

Begin clrscr;
      write('Введите число N = ');
      readln(n);
write('S=');
for i:=1 to n-1 do
    begin
    s:=s+sqr(i);
    write(sqr(i),'+');
    end;
s:=s+sqr(n);
write(sqr(n),'=', s);
End.    
     

Answer 2

Конечно! Вот пример кода на языке Pascal для вычисления суммы квадратов от 1 до N:

pascalCopy code
program SumOfSquares;
var
  N, i, S: integer;
begin
  write('Введите число N: ');
  readln(N);
  
  S := 0;
  for i := 1 to N do
    S := S + i * i;
    
  writeln('Сумма квадратов от 1 до ', N, ' равна ', S);
end.

Программа запрашивает у пользователя число N, а затем с помощью цикла for вычисляет сумму квадратов от 1 до N и выводит результат на экран.