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

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

Question

Информатика

Макся

5 июня, 02:12

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

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

+1

Ответы (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.

Вот вроде через паскаль получилось)