Quảng cáo
2 câu trả lời 305
var n,t:longint;
begin
clrscr;
write(‘Nhap mot so co 3 chu so: ‘);readln(n);
t:=100;
writeln(‘Chu so hang tram: ‘,n div 100);
n:=n-((n div 100)*100);
begin
clrscr;
write(‘Nhap mot so co 3 chu so: ‘);readln(n);
t:=100;
writeln(‘Chu so hang tram: ‘,n div 100);
n:=n-((n div 100)*100);
var n:longint; s:string;
begin
clrscr;
write(‘Nhap mot so co 3 chu so: ‘);readln(n);
str(n,s);
writeln(‘Chu so hang tram: ‘,s[1]);
writeln(‘Chu so hang chuc: ‘,s[2]);
writeln(‘Chu so hang don vi: ‘,s[3]);
readln
end.
begin
clrscr;
write(‘Nhap mot so co 3 chu so: ‘);readln(n);
str(n,s);
writeln(‘Chu so hang tram: ‘,s[1]);
writeln(‘Chu so hang chuc: ‘,s[2]);
writeln(‘Chu so hang don vi: ‘,s[3]);
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86252
Gửi báo cáo thành công!
