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

hungtomlatao

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 29 xem

1 trả lời

Thích Trả lời

hoaigiang369

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.

Vote (0) Phản hồi (0) 2 năm trước

2459834087638098

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:

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Mọi người giải hết dùng em với nha 😢😢😢😢

Mn giải giúp e vs ạ. Giải thích rõ giúp e ạ

đun nóng mg hỗn hợp X gồm Mg Al Cu trong O2 dư thu được 15,8 g Y các Oxit .hòa tan Y cần vừa đủ dung dịch HCl 1M và H2SO4 0,5 M thu được dd chứa 42,8 g hỗn hợp muối trung hòa .biết các phản ứng xảy ra hoàn toán .tìm m?

giúp em với ạ em cảm ơn ạ em bổ sung chút là câu số 7 là KOH 1M 30ml dd câu số 8 là bởi 60 ml dd KOH 20 ml dd

The......... of the new guest caused trouble to me (ARRIVE)

Tìm x là số nguyêm để biểu thức sau có giá trị nguyên D=11/x+2

The weather was terrible,so we had a very ..........holiday (PLEASE)

Vẽ bé loli Lolita. Tradi or digi đều nhận. Màu đầy đủ y hình. Chọn 1 trong 3 bức.

It's forbidden to hunt for that kind of bird.It has been listed as one of the......species (DANGER)

Hộ tuiiiiiiiiiiiiiiiiiiii nhaaaaaa

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến