Примерно 11272192 Мб . И кто такие тупые задачи делает?
Var
A,B:integer;
Begin
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10);
A:=((A div 10) mod 10)+(A mod 10);
if A>=B then Write(A,B)
else if B>=A then Write(B,A)
End.
<span>Правильный ответ 7. Алгоритм считает сколько
исполнителей набрали меньше 25 голосов. Это 1-й,2-й,3-й,5-й,6-й,8-й,9-й
всего таких - 7</span>
Объяснение:
^ не ставится, но выполняет свои действия, у себя его ставьте!