Cho biết chữ số hàng chục trong pascal
thanks
Quảng cáo
1 câu trả lời 404
Program chu_so;
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 ;
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45592
-
Đã trả lời bởi chuyên gia
29052 -
Hỏi từ APP VIETJACK28534
Gửi báo cáo thành công!
