Предмет: Информатика,
автор: Banchik
ДАЮ 50 БАЛЛОВ!!!!!!!!!!
Дано натуральное число A , большее 9 , в записи которого нет нулей . Требуется найти максимальное двузначное число , которое можно увидеть в записи числа A . Например , для числа 18943 ответом будет число 94.
Indentuum:
язык?
Ответы
Автор ответа:
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.
Автор ответа:
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.
Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.
Похожие вопросы
Предмет: Физика,
автор: nastiamanda724
Предмет: Алгебра,
автор: kesihis452
Предмет: Английский язык,
автор: Аноним
Предмет: Биология,
автор: Alinafuture
Предмет: Химия,
автор: ЗаЯизРаЯ111