Program Scheme;
Var xn,xk,dx,x,s,p,k,y: Extended;
Label rep;
Begin
write('Enter xn: ');
readln(xn);
write('Enter xk: ');
readln(xk);
write('Enter dx: ');
readln(dx);
s:=0; p:=1; x:=xn; k:=0;
rep:
If x <= xk then
Begin
y:=exp(sin(x))*cos(x);
writeln('x = ',x:0:3, ' y = ', y:0:3);
if y >= 0 then
s:=s+y;
if y <> 0 then
p:=p*y;
x:=x+dx;
goto rep;
End
else
Begin
writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);
exit;
End;
End.
Объяснение: Если есть вопросы, пишите в лс.
2 Мб = 2×1024² = 2 097 152 байт = 2 097 152×8/1000 ≈ 16 777 кбит.
5 Мб = 5×1024² = 5 242 880 байт = 5 242 880×8/1000 ≈ 41 943 кбит.
2. Найдем время, необходимое для получения компьютером Маши 2 Мб данных на скорости 220 кбит/с
16 777/220 ≈ 76.26 с
3. Найдем время, необходимое для получения компьютером Светланы 5 Мб данных при скорости 215 кбит/с
41 943/215 ≈ 195.08 с
4. Сложим эти два временных интервала
76.26+195.08 = 271.34 ≈ 272 с