Câu 1: (5 điểm)
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.
Ví dụ:
Nhập từ bàn phím Xuất ra màn hình
132 Số nguyên N có 3 chữ số
tổng các chữ số của N là: 6
Chữ số lớn nhất: 3
-Lưu bài: D:\SBD\Bai1.pas
uses crt;
var n:string; //minh dung n la string vi string co 255 ky tu
i,temp,tong,max:integer;
begin
readln(n);//doc n
max := 0; tong := 0;
for i:=1 to length(n) do
begin
val(n[i],temp);//val chuyen tu string sang so gan vao temp
if temp > max then max := temp;
tong := tong + temp;
end;
//xuat…..
writeln(‘Số nguyên N có ‘, length(n) ,’ chữ số’);
writeln(‘Tổng các chữ số của N là: ‘, tong);
writeln(‘Chữ số lớn nhất: ‘, max);
readln;
end.
//ez :))) code ở trên chưa đáp ứng đề bài (không xoá đó làm sao :)))
*Giới hạn lớn quá nên không cho được nha bạn, rút về 100000000 thôi.
uses crt;
var a:array[0..100000000] of int64;
n,d,max,s,k:longint;
begin
clrscr;
write(‘n=’); readln(n);
while n<>0 do
begin
k:=n mod 10;
inc(s,k);
inc(d);
if k>max then max:=k;
n:=n div 10;
end;
writeln(‘So nguyen N co ‘,d,’ chu so’);
writeln(‘Tong cac chu so cua N la: ‘,s);
writeln(‘Chu so lon nhat: ‘,max);
readln;
end.