program in_so_nguyen;

uses crt;

var so,a,b:integer;

begin;

write('nhap so nguyen: ');readln(so);

a:=so div 10;

b:=so mod 10;

writeln(' Chu so hang chuc la: ',a);

writeln(' Chu so hang don vi la: ',b);

readln;

end.

giải thk 1 chút:

cái câu lệnh mk bôi đen ý, có thể bn sẽ ko hiểu nên mk sẽ chú thk riêng ra

a, a:=so div 10;

thì bn có thể thấy rằng, bất kỳ số có 1 chữ số nào chia cho 10 thì hàng đơn vị sẽ chuyển thành phần thập phân

VD: 95/10=9,5      34/10=3,4      71/10=7,1

thì khi đó ta thấy rằng nó chỉ khác nhau là số sau có dấu , ở giữa, mà câu lệnh div ý, thì nó lấy phần nguyên, tức là phần trc dấu , ý, mà chính số đó lại là hàng chục nên ta sẽ dùng câu lệnh này để tìm hàng chục

b, b:= so mod 10;

thì nó cx đơn giản như trên ý, nhưng khác là số sau dấu , chính là số hàng đơn vị nên mk dùng câu lệnh mod để lấy cái số đằng sau từ đó tìm ra số hàng đơn vị

Mk đã gt xong còn nếu bn ko hiểu thì mk ko bt j dou nha

program in_so_nguyen;

uses crt;

var n,a,b:integer;

begin

clrscr;

write('nhap so nguyen: ');readln(n);

a:=n div 10;

b:=n mod 10;

writeln(' Chu so hang chuc la: ',a);

writeln(' Chu so hang don vi la: ',b);

readln

end.