Question

Viết chương trình cho biết chữ số hàng nghìn, hàng trăm, hàng chục, hàng đơn vị của một số có 4 chữ số. Ví dụ khi nhập 4357

Answer 1

uses crt;

var a,dv,ch,tr,ng:integer;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

until (1000<=a) and (a<=9999);

dv:=a mod 1000;

ch:=a div 100; ch:=ch mod 10;

tr:=a div 10; tr:=tr mod 10;

ng:=a div 1000;

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

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

writeln('Chu so hang tram la: ',tr);

writeln('Chu so hang ngan la: ',ng);

readln;

end.