⇢ На
Натали
Помогите с задачкой по паскалю
АН
Андрей Назаретян
var p,s:real; k:integer;
begin
s:=1; p:=1;
for k:=1 to 8 do begin p:=p/3; s:=s+p end; writeln(s:0:8);
readln
end.
Похожие вопросы
var p,s:real; k:integer;
begin
s:=1; p:=1;
for k:=1 to 8 do begin p:=p/3; s:=s+p end; writeln(s:0:8);
readln
end.