Question

viết chương trình nhập vào một số nguyên dương n . Rồi xuất ra màn hình các yêu cầu sau:

a, Số n có bao nhiêu chữ só.

b, Tổng các chữ số của n.

c, Số n có phải là số nguyên tố không.

d, Tổng các chữ số của nó có phải là số nguyên tố không.

mn giúp em vs ạ

Answer 1

program ct;
uses crt;
var dem,n,s,max,t:longint;
begin
        writeln('nhap n:');readln(n);
        while n>0 do begin
                        s:=n mod 10;
                        t:=t+s;
                        if max<s then max:=s;
                        dem:=dem+1;
                        n:=n div 10;
                     end;
        writeln('tong la',t,',','co',' ',dem,' ','chu so',',','chu so lon nhat la:',max);
        readln
end.

bạn xem lại nha mik làm đây nhưng k bt đk