Додаток_до_уроку_8.txt.

program summa_povtoriti;

var i,n,s:integer;

begin

writeln('vvedit kilkist naturalnix chisel');

write('n=');

readln(n);

i:=1;

s:=0;

repeat

S:=s+i;

i:=i+1;

until i>n;

writeln('s=',s);

readln;

end.

program repeat_2;

var i,n:integer;

a:real;

begin

i:=1;

n:=10;

begin

repeat

a:=3+cos(2*i);

i:=i+1;

writeln(i:4,a:8:3);

until i>n;

end;

readln;

end.

Program dobutok_3;

var i:integer;

a,d:real;

begin

i:=1;

d:=1;

repeat

a:=2+abs(sin(3*i));

d:=d*a;

i:=i+1;

until i>5;

writeln('d=',d:5:3);

readln;

end.