1)Вычислить сумму квадратов 10 чисел. Числа вводятся с клавиатуры
2)Написать программу вычисления произведения элементов последовательности, заданной формулой: A=1+(k+1)^-2/2k-1
Ответы на вопрос
Ответил ANNA2357
0
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.
Вот вроде через паскаль получилось)
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.
Вот вроде через паскаль получилось)
Ответил Sobasko
0
окей
Ответил ANNA2357
0
блин...вторую немогу
Ответил Sobasko
0
найти в инете не можете да?)
Новые вопросы