Задачи курса ЕГЭ – 2010 по программированию (операторы цикла).

1.  Определите значение переменной m после выполнения фрагмента программы:

a)  m:=0; n:=5;

for i:=1 to 10 do begin n:=i+2;

if n>10 then m:=n+m*2 else m:=m+1;

end;

b)  m:=-10; n:=0;

for i:=1 to 10 do begin n:=i+3;

if n>8 then m:=n*2+m else m:=m-1;

end;

2.  Определите значение переменных X и Y после выполнения фрагмента программы:

a)  x:=25; y:=-20;

while x*y<0 do begin

x:=x–5; y:=y+2;

end;

b)  x:=-25; y:=-20;

while x*y>0 do begin

x:=x+5; y:=y+3;

end;

3.  Определите значение переменной s после выполнения фрагмента программы:

s:=0; m:=2547;

while m>10 do begin

d:=m mod 10;

s:=s+d;

m:=m div 10;

end;

s:=s+m;

4.  Определите значение переменной c после выполнения фрагмента программы:

c:=0; m:=2134;

while m>10 do begin

d:=m mod 10;

c:=(c+d)*10;

m:=m div 10;

end;

c:=c+m;

5.  Определите значение переменной k после выполнения фрагмента программы:

i:=0; f:=true; n:=1; k:=3;

repeat

i:=i+1; n:=-i*n;

if (n<0) then k:=k+1 else f:=false;

until (i=5) or not (f);

write (k);

6.  Определите значение целочисленной переменной k после выполнения фрагмента программы (переменные i, n – целого типа):

i:=7; f:=true; n:=1; k:=10;

repeat

i:=k mod i; n:=k div (i+1);

if (n<i) then k:=k+1 else f:=false;

until (i=1) or not (f);

write (k);

7.  Определите значение переменной a после выполнения фрагмента программы:

a:=14; b:=10;

while a<>b do begin

if b>a then b:=b-a else a:=a-b;

end;

8.  Определите значение переменной a после выполнения фрагмента программы:

a:=17; b:=5;

while a>b do

if a mod 2 = 0 then b:=b+a else a:=a-2*b+1;

9.  Определите значение переменной s после выполнения фрагмента программы:

x:=0;

y:=x;

h1:=1; h2:=2;

s:=0;

while (x<=2) and (y<=5) do

begin

s:=s+2;

x:=x+h1;

y:=y+h2;

end;

10.  Определите значение переменной a после выполнения фрагмента программы:

h1:=-2; x:=10;

h3:=3; h2:=2; a:=-1;

while (x>=3) do begin

y:=2;

{Вложенный цикл}

 
while (y<=3) do begin

a:=a+h3;

y:=y+h2;

end;

x:=x+h1;

end;

11.  Определите значение переменной b после выполнения фрагмента программы:

b:=0; a:=-1;

for i:=3 to 5 do

begin

x:=a*i;

a:=-a;

b:=b+x;

end;

Задачи для составления циклических программ по блок-схемам.

1.

2.