Soelshoms
4 год назад
Пожалуйста посчитайте пожалуйста написать программу Pascal !
ОТВЕТЫ
Добри
Oct 24, 2020
var i: integer;
s,p: real;
begin
s:=1; p:=1;
for i:=1 to 8 do
begin
p:=p*3;
s:=s+1/p;
end;
writeln('сумма: ',s:7:5);
end.
сумма: 1.49992
s,p: real;
begin
s:=1; p:=1;
for i:=1 to 8 do
begin
p:=p*3;
s:=s+1/p;
end;
writeln('сумма: ',s:7:5);
end.
сумма: 1.49992
213
Смежные вопросы:
