Bài 1. Viết chương trình: – Nhập vào số nguyên N. – Tính tích N số nguyên đầu tiên và xuất kết quả ra màn hình.

0 bình luận về “Bài 1. Viết chương trình: – Nhập vào số nguyên N. – Tính tích N số nguyên đầu tiên và xuất kết quả ra màn hình.”

1. program so_n ;

   uses crt;

   var n,tich,i : integer;

   begin

   clrscr;

   tich:=1;

   write(‘n=’);readln(n);

   for i:=1 to n do tich:=tich*i ;

   writeln(‘tich ‘,n,’ so nguyen đau tien la ‘,tich);

   readln

   end.

   Trả lời

2. Chắc là đúng=)))). Ơ chết mình đọc sai đề rồi nhưng mà thôi ngại sửa =)))))

   uses crt;
   var a: array[1..1000] of integer;
   n,i,s: integer;
   begin

   clrscr;
   write(‘Nhap N: ‘); readln(n);
   s:=1;
   for i:=1 to n do
    begin
     write(‘So thu ‘,i,’: ‘); readln(a[i]);
     s:=s*a[i];
    end;
   write(‘Tich cua cac so da nhap la: ‘,s);
   readln;
   end.

   Trả lời