Предмет: Информатика, автор: Banchik


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


Indentuum: язык?
supersuperkirip54irs: Вот я дурак, язык не спросил...
Banchik: Забыл написать ПАСКАЛЬ

Ответы

Автор ответа: supersuperkirip54irs
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.


Banchik: Спасибо большое за решение !!!!!!!)))))))
Автор ответа: MrMiner1
1

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.

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


Banchik: Спасибо большое за решение !!!!!!!)))))))
Похожие вопросы
Предмет: Алгебра, автор: kesihis452
Предмет: Английский язык, автор: Аноним
Предмет: Биология, автор: Alinafuture
Предмет: Химия, автор: ЗаЯизРаЯ111