Var A:integer;
Begin
Write('A = ');Read(A);
if A>50 then A:=(A div 10)+(A mod 10)
else A:=(A div 10)*(A mod 10);
Write(A);
End.
<span>а) хранение программ начальной загрузки компьютера и тестирования его узлов</span>
Просто введи код в язык программирования Poscal - тебе и выдаст ответ.
Ну в данном случае S=31.
---
666 : 2 = 333
333 : 2 = 166.5
166.5 : 2 = 83.25
83.25 : 2 = 41.625
41.625 : 2 = 20.8125
20.8125 : 2 = 10.40625
10.40625 : 2 = 5.203125
5.203125 : 2 = 2.6015625
2.6015625 : 2 = 1.30078125
1.30078125 : 2 = 0.650390625
---
Готово ;)