ABC Pascal

[noone]

Дано натуральное число. Найти его максимальную цифру.

[Xardas]

Берешь число.
Ищешь остаток от деления на 10, находя тем самым последнюю цифру, присваиваешь ее переменной max:

max := Число mod 10

Дальше строишь цикл, лучше while, который должен выполняться пока заданное число больше нуля. В цикле проделываешь небольшие манипуляции с операцияеми div и mod, "вытаскивая" каждую цифру, и, сравнивая ее с переменной max, получишь в конечном итоге максимальную цифру... Примерно должно выглядеть так:

.....
x := Число mod 10;
Число := Число div x;

if x > max then max := x;
....

Остальное сам

[Bysh]

Xardas , напиши решение плз

[Heming]

Program Maxtzifra;
uses crt;
var n:longint;{nashe chislo}
MaxN, TziklN:integer;
{****************************}
begin
clrscr;
writeln('Vvedite tzeloje chislo');
readln(n);
n:=abs(n); {na sluchay otritzatelnogo chisla}
if n=0 then maxN:=0 {esli chislo 0, to i tzifra 0}
{*****************************************}
else maxN:=0; {berem za max1 nevozmognoe max}
while n>0 do
begin
TziklN:=n mod 10;
n:=n div 10;
if tziklN > maxN then maxN:=tziklN;{kluchvoe uslovie}
end;
write('Max tzifra ='+' ');
textcolor(12);
writeln(MaxN);
textcolor(7);
readln
end.

Если по условию у вас натуральные, а не целые, то откиньте модульное присваение, и поставьте защиту от отриц ввода через оператор
repeat
.......
until(условие);

[whatever]

А смсл заморачиваться с mod и div?

Записываем число в строку S, а потом вот так:

  max:=S[1];
  for i:=2 to length(S) do
    if s[i]>max then max:=s[i];
  writeln(max);

где max:char, i:integer;

[Heming]

Если человек не может даже с операторами ветвления и циклам разобраться, то кнч давайте сразу дадим стринг и понятие таблицы ascii.

И не вижу я тут "заморачивания", уберите всю воду из моего кода и кол-во кода будет тоже самое