Tin học 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 26/07/2021 By aihong 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
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. Trả lời
uses crt;var t, n, n2, max, dem, r: longint;beginclrscr;t:=0;write (‘nhap n: ‘); readln (n);r:=n;n:=abs(n);repeatbeginn2:=n mod 10;n:=n div 10;t:=t+n2;if n2 >= max thenmax:=n2;end;until n=0;writeln (‘tong cac chu so cua n la: ‘,t);writeln (‘chu so lon nhat la: ‘,max);while r > 0 dobeginr:=r div 10;dem:=dem+1;end;writeln (‘so cac chu so cua n la: ‘,dem);readln;end. Trả lời