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
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
By Camila
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:
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.