Даю 28 баллов. Составить программу ( Pascal ) и блок схему для нахождения суммы по...

Question

Даю 28 баллов.
Составить программу ( Pascal ) и блок схему для нахождения суммы по следующей формуле:
Формула в приложении

---

Comments

Можно без блок-схемы?

---

Да, я ее сам сделаю потом)

---

Здесь очевидная ошибка/опечатка в формуле, ибо данная задача решается без цикла:

---

var b: real;beginwrite('b = '); readln (b);writeln((19-3+1)*4/b);end.

Answer 1

#Python 3.5.2
s = 0.0; b = int(input("b = "))
for x in range(3, 19+1): s+=(4*x)/(b*x);
print ("S =", s)

//FPC 2.6.4
var
i1, i2, x: integer;
b, s: real;
begin
s:=0;
write ('B = '); readln (b);
i1:=3; i2:=19;
for x:=i1 to i2 do s:=s+(4*x)/(b*x);
write ('S = ', s);
end.

Comments

Сор, не увидел, что Pascal

---

А я смотрю и не понимаю чо эт)

---

обнови

---

//MV C++ 10
#include
using namespace std;

int main()
{
float s=0, b;
cin >>b;
for(int x=3; x<20; x++) s+=(4*x)/(b*x);<br>cout<<s;<br>return 0;
}