Question

Дано целое число N (>0). Найти сумму 1+1/3+1/5/+...
Написать программу паскаль и сделать блок-схему
Срочно дам 100 баллов!!!

Answer 1

КОД:

program MyProgram;

var

 i,n: integer;

 s: real;

begin

   write ('Количество знаков: ');

   readln (n);

   

   s:=0;

   

   for i := 1 to n do

     if i mod 2 <>0 then

       s:=s+(1/i);

       

   write('Сумма: ',s:0:3);

end.

СХЕМА(в создании схемы я не мастер):