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

0 bình luận về “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”

1. 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.

   ///////////////////////////////////////

   

   Bình luận