Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Нужна помощь, помогите плизз задачка по паскалю

Серёга Коваленко Ученик (118), на голосовании 10 лет назад
Голосование за лучший ответ
Ivantrs Искусственный Интеллект (231211) 10 лет назад
А сам три строчки никак написать не можешь ?

program prim;
var s:real;
var p:integer;
var a:integer;
begin
s:=1;
a:=1;
for p:=1 to 8 do
begin
a:=a*3;
s:=s+1/a;
end;
writeln('Результат = ',s);
end.

Похожие вопросы