Просмотр поста

№4
var n100,n0,e,r,t:integer;
begin cls;
n0:=; {вставишь расход (как в задаче)}
r:=; {вставишь расход (как в задаче)}
t:=100
for i:=1 to r*t do
e:=e*e;
n1:=n0*e;
write(n1);
end.
№5
var n1,n0,e,r,t:integer;
begin cls;
n0:=; {вставишь расход (как в задаче)}
r:=0.05;
t:=100
for i:=1 to r*t do
e:=e*e;
n1:=n0*e;
write(n1);
end.