Cho biết chữ số hàng chục trong pascal
thanks
Quảng cáo
1 câu trả lời 280
2 năm trước
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
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK1 44256
-
Hỏi từ APP VIETJACK24640
-
Hỏi từ APP VIETJACK21086
Gửi báo cáo thành công!