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

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”

1. 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.

   Trả lời