Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
<span>a = 40 b = 10
b = - a / 2 * b
</span>b = - 40 / 2 * 10 = -200
a = 40 b = -200<span>
если a < b то c = b - a
иначе c = a - 2 * b
40 < -200 (нет)
</span>c = a - 2 * b = 40 - 2 * (-200) = 40 + 400 = 440
Ответ: 440
1КБайт = 8000Бит
2 минуты = 120 секунд
Значит, 3750КБайт = 30000000Бит
Значит скорость соединения была:
30000000:120 = 250000Бит/с
Простая задача, держи:
var a,b,c,d,n,j:integer;
begin
writeln('Стоимость монитора');
readln(a);
writeln('Стоимость системного блока');
readln(b);
writeln('Стоимость клавиатуры');
readln(c);
writeln('Стоимость мышки');
readln(d);
writeln('Сколько компьютеров нужно?');
readln(n);
j:=(a+b+c+d)*n;
writeln('Стоимость ', n, ' компьютеров = ',j);
end.