Viết chương trình tin học tính tổng tính trung binh cộng tính tổng , tích số tự nhiên Giúp mk với. Mk sẽ vote 5 sao nếu đúng

0 bình luận về “Viết chương trình tin học tính tổng tính trung binh cộng tính tổng , tích số tự nhiên Giúp mk với. Mk sẽ vote 5 sao nếu đúng”

1. program ct;

   uses crt;

   var i,n:integer;

         S,T:longint;

         Tb:real;

   begin clrscr;

      write(‘Nhap so tu nhien n: ‘); readln(n);

        S:=0; T:=1;

      for i:=1 to n do

        begin

           S:=S+i;

           Tb:=S/n;

           T:=T*i;

        end;

      writeln(‘Tong la: ‘,S);

      writeln(‘Trung binh cong la: ‘,Tb);

      writeln(‘Tich la: ‘,T);

   readln;

   end.

   Học tốt!

   Bình luận

2. program ct;

   uses crt;

   var i,n,S,T:integer;  tbc:real;

   begin

   clrscr;

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

      S:=0; T:=1;

        for i:=1 to n do

     begin

       S:=S+i;

       tbc:=S/n;

       T:=T*i;

     end;

     writeln(‘tong la:’,S);

     writeln(‘trung binh cong la:’,tbc);

     writeln(‘tich la:’,T);

   readln

   end.

   Bình luận