Входные данные: 147*(5)
И так, я предлагаю посмотреть сколько "5" удаляется за 1 раз
````````````````````````````````````````````````````````````````
<span>ПОКА нашлось (5555) ИЛИ нашлось (3333)
ЕСЛИ нашлось (5555)
ТО заменить (5555, 3)
ИНАЧЕ заменить (3333, 5)
КОНЕЦ ЕСЛИ
</span>
<span>````````````````````````````````````````````````````````````````
5555 --> 3
Уходит четыре "5".
147 / 4 = 36 (3)
36 раз у нас "5555" заменится на "3", и останется еще три "5".
Наша строка:(36*(3) + 555)
Теперь
"3333" ---> 5
36 / 4 = 9 (0)
9 раз "3333" заменим на "5", получаем
9*(5) + 555 = 12*(5)
"5555" --> 3
12 / 4 = 3(0)
3 раза "5555" заменим на "3"
333
Конец.
Ответ: 333
</span>
Uses crt; (Подключение внешних файлов)
Var
ves: real;
m: real;
Begin
clrscr;
write('ves=');
read(ves);
m: = ves * 0.65;
writeln ('Масса молекул кислорода', m:2:1, 'кг.');
readkey;
End.
Держи! Во втором варианте не учитывал что могут быть одинаковые имена, но разные фамилии и поэтому возможно некоторое нарушение в сортировке. Торопился, так как тебе видимо надо побыстрее. Но если надо, то реализую :)