Дано натуральное число. найти максимальную цифру. в паскале. через процедуры

Question

Дано натуральное число. найти максимальную цифру.
в паскале. через процедуры

Answer 1

Procedure max(n:integer; var m:integer);
begin
m:=0;
while n>0 do
 begin
 if n mod 10 > m then m:=n mod 10;
 n:=n div 10;
 end;
end;
var a,k:integer;
begin
write('a = ');
readln(a);
max(a,k);
writeln('max = ',k);
end.

Пример:
a = 2583
max = 8

Answer 2

Ммм, информатика? var n,k:integer;

Comments

нужно сделать через процедуру