Chương trình đưa ra số hàng trăm trong pascal
Program chu_so; Show var a:integer; begin clrscr; write(' nhap so a= '); readln(a); writeln(' chu so hang don vi la: ' , a mod 10 ); writeln(' chu so hang chuc la: ' , (a mod 100) - (a mod 10) ); writeln(' chu so hang tram la: ' , (a mod 1000) - (a mod 100) ); readln ; end. Program CHU_SO; uses crt; var n:integer; begin clrscr; write(‘Nhap so n: ‘);readln(n); writeln(‘Chu so hang don vi: ‘,n mod 10); n:=n div 10; writeln(‘Chu so hang chuc: ‘,n mod 10); n:=n div 10; writeln(‘Chu so hang tram: ‘,n mod 10); readln end.
1/ viết chương trình nhập vào hai số nguyên a,b tìm trung bình cộng của a,b 2/ Một cửa hàng bán sách có chương trình khuyến mãi như sau: - Nếu mua hàng vào các ngày từ thứ 2 tới thứ 6 thì giảm 10% tổng số tiền - Nếu mua hàng vào ngày thứ 7 thì giảm 30% tổng số tiền - Nếu mua hàng vào ngày chủ nhật thì giảm 40% tổng số tiền Hãy viết chương trình nhập vào ngày mua sắm là thứ mấy trong tuần( thứ hai là số 2, thứ ba là số 3,.... chủ nhật là số 8) và tổng số tiền.Cho biết số tiền sau cùng khách hàng phải trả là bao nhiêu? program ct; uses crt; var n, tram, chuc, donvi: integer begin clrscr; write('Nhap n= '); readln(n); tram:=0; chuc:=0; tram:=n div 100; n:=n mod 100; chuc:=n div 10; donvi:=n mod 100; writeln('Hang tram la ',tram); writeln('Hang chuc la ',chuc); write('Hang don vi la ',donvi); readln end. Hãy giúp mọi người biết câu trả lời này thế nào? star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star
Home/ Môn học/Tin học/Viết chương trình Pascal cho biết chữ số hàng chục nghìn,hàng nghìn,hàng trăm,hàng chục,hàng đơn vị của một số có năm chữ số. Question Viết chương trình Pascal cho biết chữ số hàng chục nghìn,hàng nghìn,hàng trăm,hàng chục,hàng đơn vị của một số có năm chữ số. in progress 0 Tin học Madelyn 5 tháng 2021-07-11T13:28:22+00:00 2021-07-11T13:28:22+00:00
2 Answers 388 views 0 Answers ( )
Leave an answerMadelyn
|