Помогите пожалуйста. Нужно найти ошибки и функцию программы.var i, n: integerS:real;const a=2;beginread(n);X:=1/a, P:=a;for i:=1 to n elsebeginP=P*(a 1);S=S 1/Pwniteln(S, P);end?

Открытый ответов : 0 55 Опубликовано в: Образование
0
var i, n: integer
S:real;
const a=2;
begin
read(n);
X:=1/a, P:=a;
for i:=1 to n else
beginP=P*(a 1);
S=S 1/P
wniteln(S, P);
end.

Ваш ответ

Ваше имя:
Капча:

Поделиться с друзьями

112,786 вопросов

42,521 ответов

11,765 комментариев

11,269 пользователей

...