Nhập vào số nguyên n, thực hiện:
a. n có bao nhiêu chữ số?
b. Tổng chữ số của n?
c. Chữ số thứ chẵn của n
d. Chữ số thứ lẻ của n
e. Xuất ra màn hình chữ số đảo ngược của n
Nhập vào số nguyên n, thực hiện:
a. n có bao nhiêu chữ số?
b. Tổng chữ số của n?
c. Chữ số thứ chẵn của n
d. Chữ số thứ lẻ của n
e. Xuất ra màn hình chữ số đảo ngược của n
uses crt;
var n:string; i,m:longint;
begin
clrscr;
write(‘Nhap vao mot xau:’);readln(n);
m:=length(n);
writeln(n,’ co ‘,m,’ chu so.’);
write(‘Cac chu so thu chan cua ‘,n,’ :’);
for i:=1 to m do if i mod 2=0 then write(n[i],’;’); writeln;
write(‘Cac chu so thu le cua ‘,n,’ :’);
for i:=1 to m do if i mod 2=1 then write(n[i],’;’); writeln;
write(‘Chu so dao nguoc cua ‘,n,’ :’);
for i:=m downto 1 do write(n[i]);
readln
end.
///////////////////////////////////////