Viết chương trình tính tổng các số từ 1 tới n. Với n cũng được nhập từ bàn phím. Sử dụng ngôn ngữ lập trình Pascal

0 bình luận về “Viết chương trình tính tổng các số từ 1 tới n. Với n cũng được nhập từ bàn phím. Sử dụng ngôn ngữ lập trình Pascal”

1. program im_14424;

   uses crt;

   var S,i,n: integer;

   begin 

   clrscr;

   write(‘Nhap vao n: ‘);

   readln(n);

   S:=0;

   for i:=1 to n do S:=S+i;

   write(S);

   readln

   end.

   Bình luận

2. program bai_giai;

   uses crt;

   var n,i:integer;

         t:longint;

   begin

        clrscr;

        write(‘Nhap n: ‘);  readln(n);

        t:=1;

        for i:=1 to n do

             t:=t*i;

        write(‘Tich la: ‘,t);

        readln;

   end.

   Bình luận