Исходник во вложении.
P.S.Правда не совсем удачная реализация...
<em />4096 :16=256-кб в секунду,скорость передачи файлов
2048 :16=8 (секунд)
Ответ:8 секунд Кбайт можно передать через другое соеденение
4 мб=4096кб
<u>Жми спасибо</u>,<em>пожалуйста</em>
Тут не совсем понятно в чем конкретно это все делать, но я так понимаю, что в пеинте. Если так, то:
1) Выбрать нужный цвет в палитре и нажать на него правой кнопкой мыши
2) Выбрать нужный цвет в палитре и нажать на него левой кнопкой мыши
3) Выбрать в панели "Прямоугольник" и нарисовать фигуру
4) Выбрать в панели "Прямоугольник" и, зажав клавишу "Shift" нарисовать фигуру
5) Выбрать в панели "Овал" и нарисовать фигуру
6) Выбрать в панели "Овал" и, зажав клавишу "Shift" нарисовать фигуру
Если не трудно, пометь ответ как лучший. Удачи
Var H,s,p,x,z:real;
begin
readln(H,s,p);
p:=s/100;
p:=p*15;
z:=H*s+p;
writeln(z);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=BigInteger(0);
var f:=BigInteger(1);
for var i:=1 to ReadInteger('n=') do begin
f*=i;
s+=f
end;
Writeln('S= ',s)
end.
<u>Примеры</u>
n= 5
S= 153
n= 20
S= 2561327494111820313
n= 100
S= 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
