Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin
write('Введите радиус = ');
readln(radius);
write('Введите высоту = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);
ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;
writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);
end.
Степан в Киеве. Иван в Лениграде и Дмитрий в Москве
14 в двоичной системе будет 1100
101<span> + 1</span>100<span> = 10</span><span>001</span>
Вроде так ну 76 там ответ
V=2048*100 бит/с=2^11 * 4*25=25*2^13 бит/с
F=1000*2^13 бит=8*125*2^13=125*2^16 бит
t=F/v=125*2^16/(25*2^13)=5*2^3=5*8=40 c
ответ 40 с