1

2

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<3 do

begin

sum:=sum+y;

i:=i+1;

y:=y+2;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

   end.

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<3 do

begin

sum:=sum+y;

i:=i+1;

y:=y*2;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

3

4

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<3 do

begin

sum:=sum+y;

i:=i+1;

y:=y*1/2;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<4 do

begin

sum:=sum+y;

i:=i+1;

y:=y/2;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

5

6

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<4 do

begin

sum:=sum+y;

i:=i+1;

y:=y*3;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<3 do

begin

sum:=sum+y;

i:=i+1;

y:=y*1/5;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

7

8

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<4 do

begin

sum:=sum+y;

i:=i+1;

y:=y+1/5;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

   end.

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<3 do

begin

sum:=sum+y;

i:=i+1;

y:=y*10/i;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

    end.

9

10

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<4 do

begin

sum:=sum+y;

i:=i+1;

y:=y*i;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<4 do

begin

sum:=sum+y;

i:=i+2;

y:=y*i;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

11

12

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<4 do

begin

sum:=sum+y;

i:=i+1;

y:=y*3;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<3 do

begin

sum:=sum+y;

i:=i+1;

y:=y*1/5;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

13

14

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<4 do

begin

sum:=sum+y;

i:=i+1;

y:=y*i;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.

program h;

var

sum,i,y:real;

begin

sum:=0;

i:=0;

y:=1;

while i<4 do

begin

sum:=sum+y;

i:=i+2;

y:=y*i;

writeln('y= ',y:6:2);

end;

writeln('Результат= ',sum:6:2);

end.