1 câu trả lời
program phuongt;
uses crt;
var s, i, n: integer;
begin
clrscr;
write('Nhap n (n<=100) = '); readln(n);
if n>100 then write('Nhap sai') else
begin
s:=0;
for i:=1 to n do s:=s+i*i;
write('S = ', s);
end;
readln
end.
Câu hỏi trong lớp
Xem thêm
