BÀI TẬP 15: SỐ HẠNG LỚN NHẤT CỦA SỐ N

Viết chương trình nhập vào một số nguyên dương N và thực hiện

a. Số nguyên dương N có bao nhiêu chữ số

b. Tính tổng các chữ số của N.

c. In ra chữ số lớn nhất của N

Nhập	Kết quả
N = 132	So N co 3 chu so Tong cac chu so cua N la: 6 Chu so lon nhat: 3

CODE THAM KHẢO:

uses crt;

var n,c,t,max,i,s: integer;

    so:string;

begin

    clrscr;

    write('Nap N = '); readln(n);

    str(n,so);

    writeln('So ',n,' co ',length(so),' chu so');

    max:=0;

    for i:=1 to length(so) do 

    begin 

        val(so[i],s,c);

        t:=t+s;

        if s>max then max:=s;

    end;

    writeln('Tong cac chu so cua ',n,' la: ',t);

    writeln('Chu so lon nhat: ',max);

    readln;

end.