Var
y:real;
n:integer;
Begin
y:=0;
For n:= 4 to 20 do
y:=y+1/(n+1);
WriteLn('y = ',y);
End.
Программа:
uses crt,dos;
var x,y:real;
begin
write('x='); readln(x);
y:=5*(x+10)/(2-7);
writeln('y=',y:5:2);
Readkey;
<span>end.
Пример:
x=2
<span>y=-12.00</span></span>
Самая простая схема........
Var a,s:integer;
begin
a:=3000
while a<5000 do begin
a:=a+(a*0,2);
s:=s+1;
end;
print(s);
end.