Tóm tắt các khái niệm và các bước tạo mẫu hỏi

Question

lanhuong · Answer

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.

0 bình luận về “Tóm tắt các khái niệm và các bước tạo mẫu hỏi”