Những câu hỏi liên quan
phạm tường lam
Xem chi tiết
nguyễn ngọc thúy vi
Xem chi tiết
doan van manh
15 tháng 10 2021 lúc 16:46

HAHAHAHAHA

Bình luận (0)
 Khách vãng lai đã xóa
Phạm Ngọc chi
Xem chi tiết
Nguyễn Thị Quỳnh Trang
Xem chi tiết
Đỗ Quốc An
4 tháng 12 2016 lúc 15:30

program CT_dautien;

uses crt;

var a:integer;

begin

clrscr;

writeln('moi nhap so a');readln(a);

if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');

readln

end.

Bình luận (0)
Nguyễn Thị Quỳnh Trang
26 tháng 11 2016 lúc 19:59

sử dụng cấu trúc IF <điều kiện> THEN <câu lệnh>

 

Bình luận (0)
Minh Tuệ Nguyễn
Xem chi tiết
Nguyên Bùi
8 tháng 9 2022 lúc 21:37

{ đơ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.

 

 

 

 

 

 

 

 

Bình luận (0)
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 12 2020 lúc 18:02

uses crt;

var tien:real;

begin

clrscr;

repeat

write('Nhap so tien:'); readln(tien);

until tien>0;

if tien>=100000 then writeln(tien*70/100:4:2)

else writeln(tien*90/10:4:2);

readln;

end.

Bình luận (1)
nguyen thi be
Xem chi tiết
Hằng Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 10:05

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln((a+b)/2:4:2);

readln;

end.

Bình luận (0)
Lê Phương Anh
Xem chi tiết