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.

Ваш ответ

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

Вопрософ.нет Задавайте любые вопросы и получайте быстрые ответы на них. Задать вопрос и получить ответ легко! Поделись своими знаниями с другими участниками сервиса!

Задайте ваш вопрос::