Помогите пожалуйста. Нужно найти ошибки и функцию программы.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.

Ваш ответ

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

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

103,281 вопросов

29,688 ответов

4,915 комментариев

9,378 пользователей

Яндекс.Метрика
...