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.
uses crt;
var d,m,s,t:integer;
begin
clrscr;
write('Nhap don gia:');
readln(d);
write('Nhap so luong:');
readln(m);
s:=d*m;
t:=s*10%;
s:=s+t;
writeln('So tien phai tra:',s);
readln
end.
count = 0
for i in range(10, 2001):
if i % 3 == 0 and i % 9 == 0 and i % 11 == 0:
count += 1
print(count)
program Tong;
var
n: integer;
i: integer;
sum: real;
begin
write('Nhap so nguyen duong n (chia het cho 5): ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 5 = 1 then
sum := sum + 1/i;
end;
writeln('Tong A la: ', sum);
readln;
end.
var s:real;
i,n,t:integer;
begin
repeat
write('Nhap n > 0 va n chia het cho 5 ');readln(n);
until (n > 0) and (n mod 5 = 0);
t:=round(n/5);
s:=1;
for i:=1 to t do
s:=s+1/(5*i);
write('A = ',s:10:2);
readln
end.
program nguyento;
uses crt;
var n,i:integer;
funcition nt(n:integer):boolean;
var ok:boolean;
i:integer;
begin
ok:=true;
for i:=2 to n-1 do
if (n mod i)=0 then
ok:=ok and false;
if n<2 then
nt:=false
else
nt:=ok;
end;
begin
write('nhap n:');
readln(n);
if nt(n) then
write(n,'la so nguyen to')
else
write(n,' khong la so nguyen to');
readln;
end.
def tinh_chi_phi(km):
if km <= 1:
chi_phi = 1000
elif 2 <= km <= 10:
chi_phi = 1000 + (km - 1) * 15000
else:
chi_phi = 1000 + 9 * 15000 + (km - 10) * 10000
return chi_phi
# Thay đổi giá trị của km để kiểm tra
km_di_duoc = 15
chi_phi_total = tinh_chi_phi(km_di_duoc)
print(f"Đi {km_di_duoc} km phải trả {chi_phi_total} VNĐ")
def tinh_tien(km):
if km <= 0:
return 0
elif km == 1:
return 1000
elif km <= 10:
return 1000 + (km - 1) * 15000
else:
return 1000 + 9 * 15000 + (km - 10) * 10000
# Sử dụng hàm
km = 12 # Số km bạn muốn tính tiền
tien = tinh_tien(km)
print(f"Số tiền phải trả cho {km} km là: {tien} ngàn")