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.
Program Tien_cuoc;
Uses crt;
Var a,b,c,tiencuoc:real;
Begin
clrscr;
Write('Nhap so thue bao hang thang:'); Readln(a);
Write('Nhap so tien 1MB:'); Readln(b);
Write('Nhap so MB:'); Readln(c);
tiencuoc:=a+b*c;
Writeln('So tien cuoc su dung la:',tiencuoc);
Readln
End.
Program tinh_tien_cong ;
Const don_gia = 15000 ;
Var so_gio , so_ngoai_gio , tien_cong : real ;
Begin
Write(' Hay nhap so gio lam ngay thuong : ' ) ;
Readln ( so_gio );
Writeln ( ' Hay nhap so gio lam ngoai gio : ') ;
Readln ( so_ngoai_gio );
tien_cong:= so_gio * don_gia + so_ngoai_gio *don_gia *2 ;
writeln ( ' so tien cong : ' , tien_cong : 9:3 , ' VND ' ) ;
Readln
End .
uses crt;
var t,v,i,tien:integer;
begin
clrscr;
write('Nhap so von la: '); readln(v);
write('Nhap lai suat:'); readln(i);
write('Nhap so tien can co la: '); readln(tien);
t:=v+v*i;
writeln('So thang la: ',(tien div t)+1);
readln;
end.
Program phi_dichvu;
const n = 12;
Var a, b, c: array[1..n] of integer;
i, tong1, tong2, tong3, tong, max, k: integer;
begin
{a. Nhập cước phí điện thoại, điện tiêu dùng và Internet(đừng ghi nhé, chỉ là để làm dấu chỗ làm thôi)}
for i:=1 to n do
begin
writeln('Nhap cac khoan chi dich vu thang thu ', i);
write('Tien dien thoai: '); readln(a[i]);
write('Tien dien tieu dung: '); readln(b[i]);
write('Tien Internet: '); readln(c[i]);
end;
writeln;
{b. Tính tổng số tiền phải trả trong năm}
tong1:=0; tong2:=0; tong3:=0;
for i:=1 to n do
begin tong1:=tong1+a[i];
tong2:=tong2+b[i];
tong3:=tong3+c[i];
end;
tong:=tong1+tong2+tong3;
writeln('Tong so tien chi dinh ki trong nam qua: ', tong);
writeln:
{c.tìm dịch vụ có tổng chi cao nhất}
max:=tong1; k:=1;
if max<tong2 then k:=2;
if max< tong3 then k:=3;
if k=1 then writeln('Tiền chi cho điện thoại cao nhất.')
else if k=2 then writeln ('Tiền chi cho điện cao nhất.')
else writeln('Tien chi cho Internet cao nhat.');
writeln;
{d. Tính trung bình khoản chi dịch vụ mỗi tháng}
writeln('Chi dich vu trung binh hang thang la: ', tong div n);
readln;
end.
