Цикл со счетчиком

1.

for i:=1 to 13 do

begin

m:=i*2;

writeln ('m=',m,' i=',i);

i:=i+3;

end;

7.

m:=0;

for i:=1 to 8 do

begin

m:=m+1;

end;

writeln ('m=',m);

2.

for s:=15 downto 5 do

begin

f:=s+2;

writeln ('f=',f,' s=',s);

s:=s-2;

end;

8.

m:=0;

for i:=3 to 8 do

begin

m:=m+i;

i:=i+1;

end;

writeln ('m=',m);

3.

for s:=1 to 3 do

begin

k:=s+2;

writeln (' k=',k);

end;

writeln (' s=',s);

9.

m:=1;

for i:=10 downto 8 do

begin

m:=m*i;

end;

writeln ('m=',m);

4.

for i:=3 to 11 do

begin

writeln (' i=',i, '  i^2=',i*i);

i:=i+3;

end;

writeln ('ура!');

10.

m:=1;

for s:=1 to 20 do

begin

f:=s+2;

end;

writeln ('s=',s);

5.

x:=14;

d:=19;

v:=16;

for i:=20 downto 1 do

begin

if i=x then writeln(i);

if i=d then writeln(i);

if i=v then writeln(i);

i:=i-1;

end;

11.

for i:=1 to 8 do

begin

writeln (i,'*5= ',i*5);

i:=i+3;

end;

for t:=5 to 3 do

begin

writeln (t);

end;

writeln ('вперед!');

6.

m:=16;

for i:=100 to 110 do

begin

m:=m+3;

i:=i+1;

end;

writeln ('m=',m);

12.

m:=0;

for i:=1 to 4 do

begin

m:=m*i;

end;

writeln ('m=',m);

1.

for i:=1 to 13 do

begin

m:=i*2;

writeln ('m=',m,' i=',i);

i:=i+3;

end;

7.

m:=0;

for i:=1 to 8 do

begin

m:=m+1;

end;

writeln ('m=',m);

2.

for s:=15 downto 5 do

begin

f:=s+2;

writeln ('f=',f,' s=',s);

s:=s-2;

end;

8.

m:=0;

for i:=3 to 8 do

begin

m:=m+i;

i:=i+1;

end;

writeln ('m=',m);

3.

for s:=1 to 3 do

begin

k:=s+2;

writeln (' k=',k);

end;

writeln (' s=',s);

9.

m:=1;

for i:=10 downto 8 do

begin

m:=m*i;

end;

writeln ('m=',m);

4.

for i:=3 to 11 do

begin

writeln (' i=',i, ' i^2=',i*i);

i:=i+3;

end;

writeln ('ура!');

10.

m:=1;

for s:=1 to 20 do

begin

f:=s+2;

end;

writeln ('s=',s);

5.

x:=14;

d:=19;

v:=16;

for i:=20 downto 1 do

begin

if i=x then writeln(i);

if i=d then writeln(i);

if i=v then writeln(i);

i:=i-1;

end;

11.

for i:=1 to 8 do

begin

writeln (i,'*5= ',i*5);

i:=i+3;

end;

for t:=5 to 3 do

begin

writeln (t);

end;

writeln ('вперед!');

6.

m:=16;

for i:=100 to 110 do

begin

m:=m+3;

i:=i+1;

end;

writeln ('m=',m);

12.

m:=0;

for i:=1 to 4 do

begin

m:=m*i;

end;

writeln ('m=',m);

1.

for i:=3 to 17 do

begin

m:=i*10;

writeln ('m=',m,' i=',i);

i:=i+3;

end;

7.

m:=0;

for i:=1 to 8 do

begin

m:=m+i;

i:=i+1;

end;

writeln ('m=',m);

2.

for s:=14 downto 6 do

begin

f:=s+3;

writeln ('f=',f,' s=',s);

s:=s-2;

end;

8.

m:=0;

for i:=1 to 6 do

begin

m:=m+1;

end;

writeln ('m=',m);

3.

for s:=5 to 10 do

begin

k:=s+3;

writeln (' k=',k);

s:=s+1;

end;

writeln (' s=',s);

9.

m:=0;

for i:=5 downto 3 do

begin

m:=m*i;

end;

writeln ('m=',m);

4.

for i:=13 downto 1 do

begin

writeln (' i=',i, ' i*2=',i*2);

i:=i-3;

end;

writeln ('ура!');

10.

m:=2;

for s:=1 to 15 do

begin

f:=s+5;

end;

writeln ('s=',s);

5.

x:=14;

d:=9;

v:=6;

for i:=2 to 10 do

begin

if i=x then writeln(i);

if i=d then writeln(i);

if i=v then writeln(i);

i:=i+1;

end;

11.

for i:=2 to 10 do

begin

writeln (i,'*4= ',i*4);

i:=i+4;

end;

for t:=1 to 2 do

begin

writeln ('t=',t);

end;

writeln ('вперед!');

6.

m:=10;

for i:=110 to 120 do

begin

m:=m+10;

i:=i+3;

end;

writeln ('m=',m);

12.

m:=8;

for i:=10 to 8 do

begin

m:=m+1;

end;

writeln ('m=',m);

1.

for i:=6 to 15 do

begin

m:=i*5;

writeln ('m=',m,' i=',i);

i:=i+3;

end;

7.

m:=0;

for i:=1 to 6 do

begin

m:=m+1;

end;

writeln ('m=',m);

2.

for s:=25 downto 15 do

begin

f:=s+2;

writeln ('f=',f,' s=',s);

s:=s-3;

end;

8.

m:=0;

for i:=2 to 9 do

begin

m:=m+i;

i:=i+1;

end;

writeln ('m=',m);

3.

for s:=4 to 7 do

begin

k:=s+2;

writeln (' k=',k);

end;

writeln (' s=',s);

9.

m:=1;

for i:=6 downto 4 do

begin

m:=m*i;

end;

writeln ('m=',m);

4.

for i:=2 to 7 do

begin

writeln (' i=',i, ' i^2=',i*i);

i:=i+1;

end;

writeln ('лето!');

10.

m:=3;

for s:=1 to 10 do

begin

f:=s+2;

end;

writeln ('s=',s);

5.

x:=4;

d:=9;

v:=6;

for i:=10 downto 1 do

begin

if i=x then writeln(i);

if i=d then writeln(i);

if i=v then writeln(i);

i:=i-1;

end;

11.

for i:=3 to 14 do

begin

writeln (i,'*2= ',i*2);

i:=i+4;

end;

for t:=6 to 1 do

begin

writeln ('t=',t);

end;

writeln ('ура!');

6.

m:=20;

for i:=10 to 30 do

begin

m:=m+4;

i:=i+3;

end;

writeln ('m=',m);

12.

m:=0;

for i:=4 to 6 do

begin

m:=m*i;

end;

writeln ('m=',m);