K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
21 tháng 11 2016
http://d.violet.vn//uploads/resources/present/2/114/529/preview.swf
HT
1
HT
31 tháng 3 2019
var a,Thunhap_TB:real;i:Integer;
begin
thunhap_tb:=0;
for i:=1 to 50 do
begin
write('thu nhap cua gia dinh thu ',i);
readln(a);
thunhap_tb:= thunhap_tb + a
end;
thunhap_tb:= thunhap_tb/50;
for i := 1 to 50 do begin
write('thu nhap cua gia dinh thu',i) ; readln(a);
write('Do lech o voi thu nhap tb la : ', a - thunhap_tb)
end;
end.
KR
1
3 tháng 12 2018
program baitap;
uses crt;
var thanhtien:real;
begin
clrscr;
write (' So tien khach da mua la: '); readln (thanhtien);
if thanhtien>=100000 then thanhtien := (70*thanhtien/100)
else thanh tien := (90*thanhtien/100);
writeln (' So tien khach phai tra la: ',thanhtien:4:2);
readln;
end.
KR
0
14 tháng 3 2018
Viết chương trình sử dụng biến mảng để giải quyết bài toán nêu ở vd 1