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.
– Yêu cầu: N là một số nguyên dương (0≤N≤10000000000000000000). Hãy thực hiện các yêu cầu trên
– Dữ liệu vào: Nhập từ bàn phím số nguyên dương N. Giả thiết dữ liệu được nhập đúng đắn, không cần kiểm tra
– Kết quả:
+ Dòng 1: Ghi N có bao nhiêu chữ số.
+ Dòng 2: Ghi tổng các chữ số của N.
+ Dòng 3: Ghi chữ số lớn nhất của N.
của bạn đây:
uses crt;
var n: longint;
chrn: string;
valn,sum,max,i,preperror: byte;
begin
write(‘Nhap so can kiem tra: ‘);
readln(n);
str(n,chrn);
for i:=1 to length(chrn) do
begin
val(chrn[i],valn,preperror);
sum:=sum+valn;
if max<valn then max:=valn;
valn:=0
end;
writeln(‘Ket qua: ‘);
writeln(length(chrn));
writeln(sum);
write(max);
readln;
end.
uses crt;
var n: longint;
chrn: string;
valn,sum,max,i,preperror: byte;
begin
write(‘Nhap so can kiem tra: ‘);
readln(n);
str(n,chrn);
for i:=1 to length(chrn) do
begin
val(chrn[i],valn,preperror);
sum:=sum+valn;
if max<valn then max:=valn;
valn:=0
end;
writeln(‘Ket qua: ‘);
writeln(length(chrn));
writeln(sum);
write(max);
readln;
end.