Компьютеры плотно связаны с нашей жизнью, они повсюду, у каждого дома есть хотя бы 1. Когда-то они были пригодны лишь для вычисления чего-либо, но сегодня их используют для решения и многих бытовых проблем, например: печать текста, соединения с сетью "интернет", в целях образования или общения... . Без него нашу жизнь уже не представить, ведь он делает её куда проще. Со временем он будет ещё больше сливаться с нашей жизнью, к добру это или к худу.
На большее фантазии не хватило
Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz;
var
n, i, u, d, f, c, ff, cc: integer;
y: real;
procedure GetDiv();
begin
ff := f;
cc := c;
d := 0;
while cc > 0 do
begin
d := d + ff;
ff := ff + 1;
cc := cc - 1;
end;
end;
function Facto(num: integer): integer;
var
ff, fi: integer;
begin
ff := 1;
for fi := 2 to num do
ff := ff * fi;
Facto := ff;
end;
begin
write('n = ');
readln(n);
y := 0;
f := 2;
c := 2;
for i := 1 to n do
begin
u := Facto( n - (i - 1) );
if i = 1 then
d := 1
else
begin
GetDiv();
f := ff + 1;
c := c + 1;
end;
y := y + (u / d);
end;
writeln('y = ', y);
end.
Начинаем алгоритм.
Переменным c и d присваиваются значения -3 и 3 соответственно.
Далее идет оператор проверки условия:
Если сумма c и d <0,
проводим действие "да"
иначе "Нет"(т.е. переходим на последнее действие.
-3+3<0?
Нет!
поэтому выполняем действие
присваивания переменной d суммы d+c:
-3+3=0
Ответ:0
1. Math.sqrt(a+b)
2. 3.7*f2-5.36*x*x*x
3. (u+2*v)*((1.89*Math.abs(u)+0.15-0.68*v)/(1+Math.sqrt(u*u+v*v)))
