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ậ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

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.

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

    nhap-vao-so-nguyen-n-thuc-hien-a-n-co-bao-nhieu-chu-so-b-tong-chu-so-cua-n-c-chu-so-thu-chan-cua

    Bình luận

Viết một bình luận