
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.

NQ
Nguyễn Quốc Đạt
CTVVIP
14 tháng 10 2023
Đúng(0)
Các câu hỏi dưới đây có thể giống với câu hỏi trên

8 tháng 2 2022
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.

21 tháng 10 2019
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.

DC
11 tháng 9 2020
program bai1;
uses crt;
var a:longint; tiendien:real;
begin
clrscr;
readln(a);
if a<=100 then tiendien:=a*1000;
if a<=150 then tiendien:=100*1000+2000*(a-100);
if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);
if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);
Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');
readln;
END.