1. viết chương trình tính tổng: S=1+2+3+…+n , trong đó n là số nguyên dương nhập từ bàn phím 2. viết chương trình tính tích 30 số nguyên dương đầu t

0 bình luận về “1. viết chương trình tính tổng: S=1+2+3+…+n , trong đó n là số nguyên dương nhập từ bàn phím 2. viết chương trình tính tích 30 số nguyên dương đầu t”

1. Câu 1:
   program C;
   uses crt;
   var s,n,i:integer;
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         for i:=1 to n do s:=s+i;
         write(‘Tong: ‘,s);
         readln;
   end.
   Câu 2:
   program C;
   uses crt;
   var s,i:integer;
   begin
         clrscr;
         s:=1;
         for i:=1 to 30 do s:=s*i;
         write(‘Tich: ‘,s);
         readln;
   end.
   Câu 3:
   program C;
   uses crt;
   var a:array[1..100] of integer;
         s,i,n,max:integer;
   begin
         clrscr;
         write(‘Nhap so luong phan tu: ‘); readln(n);
         for i:=1 to n do
               begin
                     write(‘a[‘,i,’]: ‘); readln(a[i]);
               end;
         max:=a[1];
         for i:=2 to n do if a[i]>max then max:=a[i];
         write(‘GTLN: ‘,max);
         readln;
   end.

   Bình luận