Напишите одну из задач на языке c++ (если больше

Много лишнего(наверно), только с олимпиады!Как есть.
uses crt;
var b,n,i,k,c,o,x1:integer;
    f,s,ch:string;
    r,g: text;
    A:array [0..9] of integer;
begin
assign (r,'C:\Bin.txt');
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then
delete(f,1,1);
if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then
begin
x1:=pos(s,ch);
if x1<>0 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
  N := Abs(N);
  for i := 0 to 9 do
  A[ i ] := 0;
  while N > 0 do
  begin Inc(A[ N mod 10]);
  N := N div 10;
  end;
assign (g,'C:\Bout.txt');
rewrite (g);
  for i := 0 to 9 do
  while A[ i ] > 0 do
  begin Write(g,i);
  Dec(A[ i ]);
  end;
  close(g);
end.

Содержание верного ответа и указания по оцениванию

(допускаются иные формулировки ответа, не искажающие его смысла)

Решение для OpenOffice.org Calc и для Microsoft Excel

Задание допускает много решения. Ниже приведено одно из возможных решений.

Подготовительная часть.

В ячейку  запишем формулу

информатика

или

информатика

(здесь и далее первая формула используется для русскоязычного интерфейса, вторая – для англоязычного)

В ячейку  запишем формулу

информатика

или

информатика

Скопируем эти формулы во все ячейки диапазона  

Задание 1.

В ячейку  запишем формулу

или

Задание 2.

В ячейку  запишем формулу

или

В ячейку  запишем формулу

или

В ячейку  запишем формулу

Возможны и другие варианты решения.

Например, при выполнении задания  можно упорядочить данные так, чтобы нужные строки стояли подряд, а потом подсчитать их количество, используя нумерацию строк.

Если задание выполнено правильно и при выполнении задания использовались файлы, специально подготовленные для проверки выполнения данного задания, то должны получиться следующие ответы.

На первый вопрос:  

На второй вопрос: