Question

Viết chương trình nhập  số tự nhiên n từ bàn phím (0 < n ≤ 65355).

a.Hãy cho biết n có bao nhiêu chữ số

b.Hãy cho biết chữ số lớn nhất, chữ số nhỏ nhất của n

c.Tính tổng các chữ số, tích các chữ số của n

d.So sánh tổng các chữ số của n với tính các chữ số của n

e.Hãy cho biết số đảo ngược của n có phải là số nguyên tố hay không ?

mọi người giúp em vs ạ

 

Answer 1

uses crt;

var n:string;

i,ln,nn,t,s,x,y:integer;

begin

clrscr;

readln(n);

writeln(length(n));

ln:=0;

nn:=9;

for i:=1 to length(n) do 

begin

val(n[i],x,y);

if ln<x then ln:=x;

if nn>x then nn:=x;

end;

writeln(ln);

writeln(nn);

t:=0;

s:=1;

for i:=1 to length(n) do 

begin

val(n[i],x,y);

t:=t+x;

s:=s*x;

end;

writeln(t);

writeln(s);

readln;

end.