Оперирование факооми это-докозательство
.cdr - не подходит под формат для сохранения растровых изображений
ИСХОДНЫЙ
Яша Арбузов
Катя Арбузова
Коля Белкин
Лена Волкова
Дима Иволгин
Серёжа Тополев
Валя Стрелина
Роберт Щукин
Марина Яблочкова
так как хочет Марина)
Марина Яблочкова
Роберт Щукин
Сережа Тополев
Валя Стрелкина
Дима Иволгин
Лена Волкова
Коля Белкин
Катя Арбузова
<span>Яша Арбузов </span>
var a: array[0..9] of integer;
<span> s: string;
</span><span> i,j: integer;
</span><span>begin
</span><span> for i:=0 to 9 do a[i]:=0;
</span><span> write('число: '); readln(s);
</span><span> for i:=1 to length(s) do inc(a[ord(s[i])-48]);
</span><span> i:=9;
</span><span> while a[i]=0 do i:=i-1;
</span><span> j:=i;
</span><span> i:=0;
</span><span> while a[i]=0 do i:=i+1;
</span><span> if (chr(j+48)+chr(i+48)=s[length(s)-1]+s[length(s)]) or
</span><span> (chr(i+48)+chr(j+48)=s[length(s)-1]+s[length(s)])
</span><span> then writeln('Да')
</span><span> else writeln('Нет');
end.
</span>
число: 18245390
<span>Да
</span>число: 1205483Нет