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

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

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

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

textual
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.

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы