Строки

[ЭдикNEO]

Дано натуральное число. Определить его максимальную цифру.
Найти сумму сюда с точностью Е=10^-4, общий член которого Аn=n!/n^n

[Летучий_СкилетиК]

Сообщение от ЭдикNEO

Дано натуральное число. Определить его максимальную цифру.
Найти сумму сюда с точностью Е=10^-4, общий член которого Аn=n!/n^n

это две разные задачи, или одна с непонятным условием?

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

решается так:

...
read(a);
   k := a mod 10;
   while (a >= 1) do
   begin
        if a mod 10 > k then k := a mod 10;
        a := a div 10;
   end;
write(k);...