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.
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.
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.
#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;
}
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.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.