Viết chương trình nhập vào một số nguyên n gồm ba chữ số. xuất ra màn hình giá trị của các hàng trăm hàng chục hàng đơn vị
2 câu trả lời
uses crt;
var n:string; a:longint;
begin
clrscr;
write('n=');readln(a); str(a,n);
writeln('Hang chuc: ',n[2]);
writeln('Hang don vi: ',n[3]);
readln
end.
uses crt;
var n,t,c,dv:integer;
begin
clrscr;
repeat readln(n);
until (100<=n) and (n<=999);
t:=n div 100;
c:=(n div 10) mod 10;
dv:=n mod 10;
write(t,' ',c,' ',dv);
readln
end.
Câu hỏi trong lớp
Xem thêm
