viết chương trình nhập vào 1 số n sau đó in ra màn hình tổng các chữ số của n và số lớn nhất trong các số đó số các chữ số của n

0 bình luận về “viết chương trình nhập vào 1 số n sau đó in ra màn hình tổng các chữ số của n và số lớn nhất trong các số đó số các chữ số của n”

1. var t, n, n2, max, dem, r: longint;

   begin

   clrscr;

   t:=0;

   write (‘nhap n: ‘); readln (n);

   r:=n;

   n:=abs(n);

   repeat

   begin

   n2:=n mod 10;

   n:=n div 10;

   t:=t+n2;

   if n2 >= max then

   max:=n2;

   end;

   until n=0;

   writeln (‘tong cac chu so cua n la: ‘,t);

   writeln (‘chu so lon nhat la: ‘,max);

   while r > 0 do

   begin

   r:=r div 10;

   dem:=dem+1;

   end;

   writeln (‘so cac chu so cua n la: ‘,dem);

   readln;

   end.

   Bình luận

2. uses crt;
   var t, n, n2, max, dem, r: longint;
   begin
   clrscr;
   t:=0;
   write (‘nhap n: ‘); readln (n);
   r:=n;
   n:=abs(n);
   repeat
   begin
   n2:=n mod 10;
   n:=n div 10;
   t:=t+n2;
   if n2 >= max then
   max:=n2;
   end;
   until n=0;
   writeln (‘tong cac chu so cua n la: ‘,t);
   writeln (‘chu so lon nhat la: ‘,max);
   while r > 0 do
   begin
   r:=r div 10;
   dem:=dem+1;
   end;
   writeln (‘so cac chu so cua n la: ‘,dem);
   readln;
   end.

   Bình luận