1.
75кб=600000бит
48*40=1920
600000:1920=312.5
312.5:8=39
Действия:вырасти,согреть,покрасить,проехать
100 div 5 = 20
__________________________________________
52(10), 101001(2)=41(10), 43(8)=35(10), 36(16)=30(10)
Var
S1,S2,S3:string;
i:integer;
Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.
Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9