BÀI TẬP 23: IN SỐ ĐẢO CỦA SỐ NGUYÊN N VÀ TÍNH TỔNG CÁC CHỮ SỐ CỦA N

Viết chương trình nhập vào một số nguyên dương N. In ra màn hình số đảo ngược của N và tổng các chữ số của N.

Ví dụ: Nhập N = 123

            So dao nguoc: 321

            Tong cac chu so: 6

CODE THAM KHẢO:

program so_dao;

uses crt;

var n,so,s:Integer;

begin

  clrscr;

  Write('Nhap N = '); ReadLn(n);

  s:=0;

  Write('So dao cua ',n,' la: ');

  while n <> 0 do 

    begin 

      so:=n mod 10;

      Write(so);

      s:=s+so;

      n:=n div 10

    end;

  writeln;

  writeln('Tong cac chu so la: ',s);

  readln;

end.