D
datcoder
CTVVIP
14 tháng 10 2023
Đúng(0)
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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cầ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.
