Nhập vào một số nguyên N trong pascal,tìm chữ số lớn nhất trong số N đó

Question

nhanlinh · Answer

progam chuso_max;

uses crt;

var n:longint;

max:byte;

begin

clrscr;

write(‘Nhap so: ‘); readln(n);

max:=0;

while n>0 do

begin

if n mod 10>max then max:=n mod 10;

n:=n div 10;

end;

write(‘Chu so lon nhat la: ‘,max);

readln;

end.

dantam · Answer

H&igrave;nh 1: Chương tr&igrave;nh   H&igrave;nh 2: Chạy thử

0 bình luận về “Nhập vào một số nguyên N trong pascal,tìm chữ số lớn nhất trong số N đó”