ДАЮ 50 БАЛЛОВ!!!!!!!!!! Дано натуральное число A , большее 9 , в записи которого нет...

Question

ДАЮ 50 БАЛЛОВ!!!!!!!!!! Дано натуральное число A , большее 9 , в записи которого нет нулей . Требуется найти максимальное двузначное число , которое можно увидеть в записи числа A . Например , для числа 18943 ответом будет число 94.

Comments

язык?

---

Вот я дурак, язык не спросил...

---

Забыл написать ПАСКАЛЬ

Answer 1

var k,a,i:integer;

s:string;

BEGIN

readln(a);

s:=IntToStr(a);

k:=10;

for i:=1 to Length(s)-1 do begin

if (StrToInt(copy(s,i,2))>k) then

k:=StrToInt(copy(s,i,2));

end;

writeln(k);

end.

Comments

Спасибо большое за решение !!!!!!!)))))))

Answer 2

Program n_1;

uses math;

var i, n, m, a, kol, j:int64;

begin

   readln(n);

   kol:=0;

   a:=n;

   while a<>0 do begin

       a:=a div 10;

       kol:=kol+1;

   end;

   m:=n mod 100;

   for i:=1 to kol-1 do begin

       if((n div 10) mod 100 > m) then m:=(n div 10) mod 100;

       n:=m div 10;

   end;

   writeln(m);

end.

Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.

Comments

Спасибо большое за решение !!!!!!!)))))))