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

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

0 bình luận về “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”

  1. 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 :)))

    Bình luận
  2. *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.

    Bình luận

Viết một bình luận