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 
Begin 
Writeln('vvesti chisla'); 
Readln(a); 
S:=S+(a*a); 
Writeln('S=',S); 
x:=x+1; 
end; 
End. 
Вот вроде через паскаль получилось)

Answer 2

окей

Answer 3

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

Answer 4

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