<span>1920x1080 расшерение екрана </span>
Program pbc;
var a,q,n:
integer;begin
writeln('введите десять чисел');
readln(a);
q:=1;
n:=1;
while (n<>10) do
begin
if (a>=20) and (a<=40) then
q:=a*q;
readln(a);
n:=n+1;
end;
writeln('ответ ',q);
<span>end.</span>
I = v * t , где I - объём файла, v - скорость передачи, t - время передачи. Нам известно I и v , значит t = I/v, переводим байты в биты: 108712 байт * 8 бит = 869696 бит.
Решаем: t = 869696 бит / 1016 бит/c = 856 секунд
Ответ: 856 секунд
Program e;
var s,x,n : real;
begin
writeln('Введите n');
readln(n);
x:=1488;
s:= x*3 + x*5 + x*n;
writeln('lentyai)) ',s);
<span>end.</span>