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 i,sokm:integer;
tong:real;
begin
write('nhap so km: ');readln(sokm);
for i:=1 to n do
begin
if i=1 then tong:=tong+5000;
else if tong>=2 and tong<=5 then tong:=tong+4500;
else tong:=tong+3500;
end;
if sokm>120 then tong=(tong/10)*9;
writeln('so tien la ',tong,' dong');
readln;
end.
Mik giải đúng ko ạ? Bạn nào xem hộ mik với🙏
Program tinhtientaxi;
Uses crt;
Var x:integer;
Begin
Clrscr
Write('hay nhap so km:');
Readln(x);
If x>= 11 then write(x*6000)
Else write(x*7000);
Readln;
End.
bài 1;
Program bai1;
uses crt;
var tienxe: real;
a: integer;
begin
clrscr;
write('nhap so km ='); readln(a);
if a <= 1 then tienxe:=13000*a
else
if a <= 30 then tienxe:=13000*1+12000*(a-1)
else
tienxe:=13000*1+29*12000+(a-30)*11000;
writeln('so tien xe phai tra la : ' ,tienxe:9:0,'VND');
readln;
end.
Chúc bạn học tốt !
Bài 2:
Program bai2;
uses crt;
var a,b,kq: real;
pt: char;
begin
clrscr;
write('Nhap 2 so a, b: ');
readln(a,b);
writeln ('Nhap phep tinh can thuc hien: ');
readln(pt);
case pt of
'+' : kq:=a+b;
'-' : kq:=a-b;
'*' : kq:=a*b;
'/' : kq:=a/b;
end;
write('Ket qua: ',kq:0:2);
readln ;
end.
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
#include <iostream>
int main() {
int A;
std::cout << "Nhập số km khách đi: ";
std::cin >> A;
int total = 0;
if (A <= 2) {
total = A * 15000;
} else if (A <= 10) {
total = 2 * 15000 + (A - 2) * 13000;
} else {
total = 2 * 15000 + 8 * 13000 + (A - 10) * 11000;
}
std::cout << "Tổng tiền: " << total << "đ" << std::endl;
return 0;
}