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.
2 câu trả lời
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.
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.