Надо найти I. i=128. K=500*120. I=K*i=500*120*128=60000*128=7680000 бит=960000байт. Можно было бы представить 128 как 2 в 7 степени, и считать в степенях двойки. но перевод нужен только в байты
-> два мальчика
<- один мальчик
-> один взрослый
<- возвращается один мальчик, который остался после первых двух действий
-> два мальчика
<- один мальчик
-> взрослый
<- мальчик, который после 5 и 6 действия
-> два мальчик
Ответ Б
<span>b) Write ('Привет!!!');
</span>
Var
A,R:real;
i,L,z:integer;
S:string;
Begin
Read(S);
L:=Length(S);
i:=1;
R:=0;
While (S[i]in['0'..'9'])and(i<L) do
Begin
R:=R*10+StrToInt(S[i]);
i:=i+1
End;
While i<L do
Begin
Case S[i] of
'+':z:=0;
'-':z:=1;
'*':z:=2;
'/':z:=3;
End;
i:=i+1;
A:=0;
While (S[i]in['0'..'9'])and(i<L) do
Begin
A:=A*10+StrToInt(S[i]);
i:=i+1
End;
if i=L then A:=A*10+StrToInt(S[L]);
Case z of
0:R:=R+A;
1:R:=R-A;
2:R:=R*A;
3:R:=R/A;
End;
End;
WriteLn('R = ',R);
End.