12+  Свидетельство СМИ ЭЛ № ФС 77 - 70917  Пользовательское соглашение      Контактная и правовая информация
 
Педагогическое сообщество
УРОК.РФ
УРОК
Материал опубликовала
Марина Анатольевна Башарина155
Россия, Архангельская обл., Коряжма

ЕГЭ задание 8

За­да­ние 1. Опре­де­ли­те зна­че­ние пе­ре­мен­ной c после вы­пол­не­ния сле­ду­ю­ще­го фраг­мен­та про­грам­мы. Ответ за­пи­ши­те в виде це­ло­го числа.

a := 17;

b := 20;

a := 3 * a - b;

if a > b then

c := 5 * a - b

else

c := 5 * a + b;

 

За­да­ние 2. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

var k, s: integer;

begin

s:=1;

k:=0;

while k < 13 do begin

s:=s+2*k;

k:=k+4;

end;

 write(s+k);

end.

 

За­да­ние 3 Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

var k, s: integer;

begin

s:=0;

k:=0;

while k < 30 do begin

k:=k+3;

s:=s+k;

end;

write(s);

end.

 

За­да­ние 4. За­пи­ши­те число, ко­то­рое будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния про­грам­мы. Для Ва­ше­го удоб­ства про­грам­ма пред­став­ле­на на пяти язы­ках про­грам­ми­ро­ва­ния.

var s, n: integer;

begin

s := 301;

n := 0;

while s > 0 do

begin

s := s - 10;

n := n + 2;

end;

writeln(n)

end.

 

За­да­ние 5. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния про­грам­мы, за­пи­сан­ной ниже на раз­ных язы­ках про­грам­ми­ро­ва­ния:

var n, s: integer;

begin

n : = 1;

s : = 0;

while n <= 101 do

begin

s : = s + 7;

n : = n + 1

end;

write(s)

end.

 

За­да­ние 6. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния про­грам­мы (за­пи­сан­ной ниже на раз­ных язы­ках про­грам­ми­ро­ва­ния):

var n, s: integer;

begin

n := 0;

s := 0;

while s <= 365 do

begin

s := s + 12;

n := n + 5

end;

write(n)

end.

 

За­да­ние 7. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния про­грам­мы (за­пи­сан­ной ниже на раз­ных язы­ках про­грам­ми­ро­ва­ния).

var n, s: integer;

begin

n := 0;

s := 1;

while s <= 1000 do

begin

s := s * 3;

n := n + 3;

end;

write(n)

end.

Опубликовано в группе «УРОК.РФ: группа для участников конкурсов»

Комментарии (0)

Чтобы написать комментарий необходимо авторизоваться.