Составте блок-схему и программу для нахождения суммы по следующей формуле - Turbo Pascal

Формулировка задачи:

1. Составьте блок-схему и программу для нахождения суммы по следующей формуле (см. картинку) где p вводится с клавиатуры.


textual

Код к задаче: «Составте блок-схему и программу для нахождения суммы по следующей формуле - Turbo Pascal»

Var f,p:real;
    n:integer;
Begin
    Repeat
     write('p: ');readln(p);
    Until p<>0;
    For n:=10 to 30 do
     f:=f+(2*n-sqrt(n))/(p*n);
    writeln('F = ',f:0:2);
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.000 из 5

Источник
Похожие ответы