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

TH

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

NN
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
NN
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
NT
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ự
H24
Xem chi tiết
H24
Xem chi tiết
GM
Xem chi tiết
GM
Xem chi tiết
LB
Xem chi tiết
HP
Xem chi tiết
HL
Xem chi tiết
NP
Xem chi tiết
BH
Xem chi tiết