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

0 bình luận về “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”

1. Program Muatrung;
   Uses crt;
   Var n: byte; s:integer;
   Begin
           Clrscr;
           Write(‘Nhap so luong trung: ‘); Readln(n);
           If n>10 then
           Begin
                   Write(‘Nhap sai! Yeu cau nhap lai: ‘); Readln(n);
           End;
           s:=2000*n;
           Write(‘So tien phai tra: ‘,s);
           Readln
   End.

   ———————————————-

   Không hiểu chỗ nào hỏi mình :33

   Bình luận

2. program hotboy;

   uses crt;

   var tien, n : integer;

   begin

   clrscr;

   repeat 

   write(‘nhap so trung ma me nho Lan mua’);

   readln(n)

   until n<=0;

   tien:=2000*n;

   write(‘so tien de Lan mua trung la’,tien); 

   readln

   end.

   Bình luận