Ответы 1

  • Var   P:real;   A:integer;BeginP:=1;For A:= 1 to 100 do    P:=P*(1+Cos(A/10));WriteLn('P = ',P);End.Результат работы программы:P = 2.79308459159613E-38
    • Автор:

      rosasnu5
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years