1)Вычислить сумму квадратов 10 чисел. Числа вводятся с клавиатуры2)Написать программу...

Question

1)Вычислить сумму квадратов 10 чисел. Числа вводятся с клавиатуры
2)Написать программу вычисления произведения элементов последовательности, заданной формулой: A=1+(k+1)^-2/2k-1

Answer 1

Program wda; 
Var 
S,a,x:integer; 
Begin 
x:=0; 
While x<=5 do </span>
Begin 
Writeln('vvesti chisla'); 
Readln(a); 
S:=S+(a*a); 
Writeln('S=',S); 
x:=x+1; 
end; 
End. 
Вот вроде через паскаль получилось)

Comments

А 2 задачу?

---

подожди ,....попробую щас)

---

окей

---

блин...вторую немогу

---

найти в инете не можете да?)

---

пфф...нет)