Cho 4 số a, b, c, d. Tính giá trị trung bình cộng của các số lẻ. Nếu ko có số lẻ thì output là -1 nhanh nhe đang cần gắp

0 bình luận về “Cho 4 số a, b, c, d. Tính giá trị trung bình cộng của các số lẻ. Nếu ko có số lẻ thì output là -1 nhanh nhe đang cần gắp”

1. uses crt;
   var i,a,dem,tong:longint;
   begin
   clrscr;
         for i:=1 to 4 do
            begin
               write(chr(96+i),’=’);readln(a);
               if a mod 2<>0 then begin inc(dem); inc(tong,a); end;
            end;
         if dem=0 then writeln(‘-1’) else writeln(tong/dem:0:5);
   readln
   end.

   ////////////////////////////////////

   Test:

   

   Bình luận

2. program oken;
   uses crt;
   var a,b,c,d,dem: longint;
       tbc: real;
   begin
       clrscr;
       write(‘Nhap 4 so a, b, c, d: ‘); readln(a,b,c,d);
       tbc:=0; dem:=0;
       if (a mod 2=1) then
           begin
               tbc:=a;
               dem:=dem+1;
           end;
       if (b mod 2=1) then
           begin
               tbc:=tbc+b;
               dem:=dem+1;
           end;
       if (c mod 2=1) then
           begin
               tbc:=tbc+c;
               dem:=dem+1;
           end;
       if (d mod 2=1) then
           begin
               tbc:=tbc+d;
               dem:=dem+1;
           end;
       if dem<>0 then
           begin
               tbc:=tbc/dem;
               writeln(‘Ket qua: ‘,tbc:0:3);
           end
       else
           writeln(‘Ket qua: -1’);
       readln;
   end.

   Bình luận