Разработай для себя несколько правил работы с сетью
Интернет. Запиши эти правила в тетрадь.

Question

Информатика: Разработай для себя несколько правил работы с сетью Интернет. Запиши эти правила в тетрадь.​

Ликааааааааап · Accepted Answer

Var
x: real;

begin
x := 1;
while (cos(1 / tan(x)) >= 0) do x := x + 1;
Write(x, ': ', cos(1 / tan(x)))
end.

Результат выполнения программы:

6: -0.956871790478342

Если нужна промежуточная печать:

var
x: real;

begin
x := 1;
while (cos(1 / tan(x)) >= 0) do begin
Writeln(x, ': ', cos(1 / tan(x)));
x := x + 1
end;
Writeln(x, ': ', cos(1 / tan(x)))
end.

Результат выполнения программы:

1: 0.800844301895226
2: 0.897089962539917
3: 0.743794228654611
4: 0.64963571596558
5: 0.956565479264333
6: -0.956871790478342

Разработай для себя несколько правил работы с сетьюИнтернет. Запиши эти правила в тетрадь.​

MOGZ ответил

Разработай для себя несколько правил работы с сетью
Интернет. Запиши эти правила в тетрадь.