Написать программу в Pascal


Написать программу в Pascal

accyxob accyxob    2   08.12.2020 02:49    12

Ответы
zulyarakhimovaa zulyarakhimovaa  07.01.2021 02:50

program summary;

 var i, x: integer;

 var sum: real;

begin

 sum := 0;

 readln(x);

 for i := 1 to 15 do

 begin

   sum := sum + (exp(2*i*(ln(x / (exp(i*ln(2)));  

 end;

 writeln(sum);

end.

Объяснение:

Надеюсь объяснять не надо

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика