Lập trình đơn giản

Tran Manh Hung

Viết ngôn ngữ lập trình pascal trong đề sau:

Mẹ nhờ Lan đi mua đồ ăn và mua không quá 10 quả trứng. Em hãy giúp Lan tính tiền mua trứng nhé ! Biết rằng một quả trứng là 2000 đồng

Các bạn làm ơn giúp mình nhé! Tại hôm nay KT rồi

Ai làm thôi cũng sẽ cho một tick

Nguyễn Chơn Nhân
30 tháng 10 2019 lúc 6:26

var n:byte;

begin

readln(n);

write(n*2000);

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Chơn Nhân
30 tháng 10 2019 lúc 6:27

thêm bớt gì tùy bạn

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
30 tháng 10 2019 lúc 13:12

quá dễ

uses crt;
var n,t:integer;
begin
clrscr;
repeat
write('nhap so luong qua trung:'); readln(n);
if (n<=0) or (n>9) then writeln('ban da nhap sai , yeu cau ban nhap lai');
until n<9;
t:=n*2000;
writeln('tong so tien phai tra la: ',t);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Thii
Xem chi tiết
Anhthuwliz
Xem chi tiết
Gia Minh
Xem chi tiết
Gia Minh
Xem chi tiết
Lương Thị Lộc Bình
Xem chi tiết
Hoàng Duy Khánh Phan
Xem chi tiết
Hằng Lê
Xem chi tiết
Nguyễn Thị Trúc Phương
Xem chi tiết
Bé Heo
Xem chi tiết