Viết chương trình nhập vào số nguyên n tính: S=1^2+2^2+3^2+......+N^2 cái này làm trong Pascal nha

2 câu trả lời

uses crt;
var n,i,s:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do s:=s+i*i;
  write('s=',s);
 readln
end.

Đáp án:

uses crt; n,i,s:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do s:=s+i*i;
  write('s=',s);
 readln
end.

Chúc bạn năm mới vui vẻ nha!