Question

ПЕРЕВЕДИТЕ ИЗ ПАСКАЛЯ В С++ ПОЖАЛУЙСТА

uses crt;
var e,t,s:real;
k:integer;
begin
clrscr;
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=1 then s:=1
else
begin
k:=0;
t:=1;
s:=t;
while t>e do
begin
k:=k+1;
t:=1/(3*k);
s:=s+t;
end;
end;
write('S=',s:0:4);
readln
end.