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

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

Задать свой вопрос
Тимур
язык?
Оля Шегал
Вот я дурачина, язык не спросил...
Оксана Повереннова
Забыл написать ПАСКАЛЬ
2 ответа

Program n_1;

uses math;

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

begin

   readln(n);

   kol:=0;

   a:=n;

   while alt;gt;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 gt; m) then m:=(n div 10) mod 100;

       n:=m div 10;

   end;

   writeln(m);

end.

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

Valentina Silishhenskaja
Спасибо огромное за решение !!!!!!!)))))))

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))gt;k) then

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

end;

writeln(k);

end.

Миннемулина Антонина
Спасибо огромное за решение !!!!!!!)))))))
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт