Помогите с Паскалем. Нужно написать программу, которая с помощью функции, выводит наибольшую цифру в введенном числе.

Question

Информатика

Ритуля

29 августа, 10:42

Помогите с Паскалем. Нужно написать программу, которая с помощью функции, выводит наибольшую цифру в введенном числе.

+5

Ответы (1)

Знаете ответ на вопрос?

Олимпий · Answer 1

Var a:integer;

function max (n:integer) : integer;

var m:integer;

begin

n:=abs (n) ;

m:=0;

while n0 do

begin

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

n:=n div 10;

end;

max:=m;

end;

begin

write ('a = ') ;

readln (a) ;

writeln ('Максимальная цифра = ', max (a)) ;

end.

Пример:

a = - 185

Максимальная цифра = 8