Viết chương trình nhập số nguyên a. Tính tổng S và trung bình cộng các chữ số của a

0 bình luận về “Viết chương trình nhập số nguyên a. Tính tổng S và trung bình cộng các chữ số của a”

1. program Tin_hoc;

   uses crt;

   var a,S,i,x,y,k:integer;

         tbc:real;

   begin

   clrscr;

   write(‘Nhap so a: ‘);readln(a);

   x:=a;k:=1;S:=0;

   while x>9 do

   begin

     y:=x mod 10;

     x:=x div 10;

     k:=k+1;

     S:=S+y

   end; 

   S:=S+x;

   tbc:=S/k;

   writeln(‘Tong S cac chu so cua a la: S = ‘,S);

   writeln(‘Trung binh cong cac chu so cua a la: ‘,tbc:0:2);

   readln;

   end.

   Nhớ cho mik câu trả lời hay nhất nha

   Bình luận

2. Program FNG;
   Uses crt;
   Var a: longint;

   Function TBC(a: longint): real;
   Var s,d: longint;
   Begin
           s:=0; d:=0;
           While a<>0 do
           Begin
                   s:=s+a mod 10;
                   inc(d);
                   a:=a div 10;
           End;
           TBC:=s/d;
   End;

   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘TBC: ‘,tbc(a):0:2);
           Readln
   End.

   Bình luận