viet chuong trinh nhap vao mot so nguyen duong n va thuc hien ,so nguyen duong n co bao nhieu chu so,tinh tong cac so n va in ra man hinh cac so lon h

0 bình luận về “viet chuong trinh nhap vao mot so nguyen duong n va thuc hien ,so nguyen duong n co bao nhieu chu so,tinh tong cac so n va in ra man hinh cac so lon h”

1. uses crt;

   y:integer;

   st:string;

   begin

   clrscr;

   repeat

   until n>0;

   str(n,st);

   d:=length(st);

   t:=0;

   max:=0;

   for i:=1 to d do 

   t:=t+x;

   max<x then max:=x;

   end;

   readln

   end

   Bình luận

2. uses crt;

   var n,d,i,t,max,x:longint;

   y:integer;

   st:string;

   begin

   clrscr;

   repeat

   write(‘Nhap n=’); readln(n);

   until n>0;

   str(n,st);

   d:=length(st);

   writeln(‘So chu so cua ‘,n,’ la: ‘,d);

   t:=0;

   max:=0;

   for i:=1 to d do 

     begin

   val(st[i],x,y);

   t:=t+x;

   if max<x then max:=x;

   end;

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

   writeln(‘Chu so lon nhat cua ‘,n,’ la: ‘,max);

   readln;

   end.

   mình có thử và không thấy mắc lỗi nên bạn thử xem

   Bình luận