СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Тесты_Программирование_Массивы_№№10, 20-2_ОГЭ Информатика

Категория: Информатика

Нажмите, чтобы узнать подробности

Тесты_Программирование_Массивы_№№10, 20-2_ОГЭ Информатика содержат два варианта (РешуОГЭ) с решениями и ответами

Просмотр содержимого документа
«Тесты_Программирование_Массивы_№№10, 20-2_ОГЭ Информатика»

Вариант 1_Программирование_ Массивы

1. Сотрудник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу Tem (Tem[1] — температура, по­лу­чен­ная в ре­зуль­та­те пер­во­го измерения, Tem[2] — вто­ро­го и т. д.).

Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

 

Паскаль

Var k, b: integer;

Tem: array[1..12] of integer;

Begin

b := 15;

Tem[1] := 22; Tem[2] := 25;

Tem[3] := 20; Tem[4] := 18;

Tem[5] := 16; Tem[6] := 14;

Tem[7] := 20; Tem[8] := 23;

Tem[9] := 17; Tem[10] := 19;

Tem[11] := 20; Tem[12] := 21;

For k := 1 to 12 Do

If Tem[k]

b := b + 1;

Writeln(b);

End.

2. В таб­ли­це Ani хра­нят­ся дан­ные о чис­лен­но­сти обе­зьян в зоо­пар­ке го­ро­да Тулы (Ani[1] — число обе­зьян в 2001 году, Ani[2] — в 2002 и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования:

 

Паскаль

Var k, m: integer;

Ani: array[1..12] of integer;

Begin

Ani[1]:= 17; Ani[2]:= 17;

Ani[3]:= 19; Ani[4]:= 21;

Ani[5]:= 23; Ani[6]:= 22;

Ani[7]:= 24; Ani[8]:= 16;

Ani[9]:= 19; Ani[10]:= 21;

Ani[11]:= 17; Ani[12]:= 17;

m := 0;

For k := 1 to 12 Do

If Ani[k] = 17 Then

Begin

m := m + Ani[k];

End;

Writeln(m);

End.

3. Сотрудник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу Tem (Tem[1] — температура, по­лу­чен­ная в ре­зуль­та­те пер­во­го измерения, Tem[2] — вто­ро­го и т. д.).

Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

 

Паскаль

Var k, b: integer;

Tem: array[1..12] of integer;

Begin

b := 0;

Tem[1] := 22; Tem[2] := 25;

Tem[3] := 20; Tem[4] := 18;

Tem[5] := 16; Tem[6] := 14;

Tem[7] := 20; Tem[8] := 23;

Tem[9] := 17; Tem[10] := 19;

Tem[11] := 20; Tem[12] := 21;

For k := 1 to 12 Do

If Tem[k]

b := b + Tem[k];

Writeln(b);

End.

4. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве самолётов, от­прав­ля­ю­щих­ся из аэро­пор­та го­ро­да на юг в пер­вой де­ка­де ав­гу­ста (Dat[1] — ко­ли­че­ство самолётов пер­во­го числа, Dat[2] — ко­ли­че­ство самолётов вто­ро­го числа и т. д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских языках.

 

Паскаль

Var k, m, day: integer;

Dat: array[1...10] of integer;

Begin

Dat[1] := 2;

Dat[2] := 2;

Dat[3] := 3;

Dat[4] := 3;

Dat[5] := 4;

Dat[6] := 4;

Dat[7] := 5;

Dat[8] := 5;

Dat[9] := 6;

Dat[10] := 6;

day:=1; m := Dat[1];

for k := 2 to 10 do

if Dat[k] = m then

begin

m:= Dat[k];

day := k;

end;

write(day);

End.

5. В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

 

Паскаль

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 2; Dat[2] := 5;

Dat[3] := 7; Dat[4] := 5;

Dat[5] := 4; Dat[6] := 2;

Dat[7] := 0; Dat[8] := 2;

Dat[9] := 4; Dat[10] := 5;

m := 0;

for k := 1 to 10 do

if Dat[k] 3 then

begin

m := m+1

end;

writeln(m);

End.

 

20.2-1 Напишите про­грам­му для ре­ше­ния сле­ду­ю­щей задачи. Ка­ме­ра на­блю­де­ния ре­ги­стри­ру­ет в ав­то­ма­ти­че­ском ре­жи­ме ско­рость про­ез­жа­ю­щих мимо неё автомобилей, округ­ляя зна­че­ния ско­ро­сти до целых чисел. Не­об­хо­ди­мо определить:

 

1) разность мак­си­маль­ной и ми­ни­маль­ной ско­ро­стей автомобилей;

2) количество автомобилей, ско­рость ко­то­рых не пре­вы­ша­ла 30 км/ч.

 

Программа по­лу­ча­ет на вход число про­ехав­ших ав­то­мо­би­лей N (1 ≤ N ≤ 30), затем ука­зы­ва­ют­ся их скорости. Зна­че­ние ско­ро­сти не может быть мень­ше 1 и боль­ше 300. Про­грам­ма долж­на сна­ча­ла вы­ве­сти раз­ность мак­си­маль­ной и ми­ни­маль­ной ско­ро­стей автомобилей, затем ко­ли­че­ство автомобилей, ско­рость ко­то­рых не пре­вы­ша­ла 30 км/ч.

 

Пример ра­бо­ты программы:

 

Входные данные

Выходные данные

4
74
69
63
96

33
0

 

20.2-2 На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму всех чисел, крат­ных 6 и окан­чи­ва­ю­щих­ся на 4. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 – при­знак окон­ча­ния ввода, не вхо­дит в последовательность). Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно число: сумму всех чисел, крат­ных 6 и окан­чи­ва­ю­щих­ся на 4.

 

Пример ра­бо­ты программы:

 

Входные данные

Выходные данные

14

24

36

84

66

0

108















Вариант 2

1. Владелец круп­но­го яб­ло­не­во­го сада в те­че­ние 12 лет за­пи­сы­вал в таб­ли­цу App ко­ли­че­ство со­бран­но­го урожая. (App[1] — ко­ли­че­ство тонн яблок, со­бран­ных за пер­вый год, App[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

 

Паскаль

Var k, m: integer;

App: array[1..12] of integer;

Begin

App[1] := 100; App[2] := 128;

App[3] := 80; App[4] := 99;

App[5] := 120; App[6] := 69;

App[7] := 55; App[8] := 115;

App[9] := 84; App[10] := 111;

App[11] := 59; App[12] := 100;

m := 0;

For k := 1 to 12 Do

If App[k] 100 Then

Begin

m := m + 1;

End;

m : = m + 10;

Writeln(m);

End.

2. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве крат­ко­сроч­ных командировок, в ко­то­рые при­хо­ди­лось ез­дить со­труд­ни­ку за по­след­ний год (Dat[1] — ко­ли­че­ство ко­ман­ди­ро­вок в январе, Dat[2] — ко­ли­че­ство ко­ман­ди­ро­вок в фев­ра­ле и т. д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских языках.

 

Паскаль

Var k, m, month: integer;

Dat: array[1..12] of integer;

Begin

Dat[1] := 5;

Dat[2] := 5;

Dat[3] := 6;

Dat[4] := 8;

Dat[5] := 4;

Dat[6] := 5;

Dat[7] := 4;

Dat[8] := 7;

Dat[9] := 4;

Dat[10] := 4;

Dat[11] := 8;

Dat[12] := 7;

month: = 1; m := Dat[1];

for k := 2 to 12 do

if Dat[k]

begin

m:= Dat[k];

month := k;

end;

write(month);

End.

3. В таб­ли­це Dat хра­нят­ся оцен­ки (по де­ся­ти­балль­ной шкале) сту­ден­та по про­грам­ми­ро­ва­нию за 8 про­шед­ших с на­ча­ла учёбы се­мест­ров (Dat[1] — оцен­ка за пер­вый семестр, Dat[2] — за вто­рой и т. д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских языках.

 

Паскаль

Var k, m, term: integer;

Dat: array[1...10] of integer;

Begin

Dat[1] := 7;

Dat[2] := 7;

Dat[3] := 6;

Dat[4] := 8;

Dat[5] := 4;

Dat[6] := 5;

Dat[7] := 4;

Dat[8] := 7;

term:=1 m := Dat[1];

for k := 2 to 8 do

if Dat[k]

begin

m:= Dat[k];

term := k;

end;

writeln(term);

End.

4. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве дет­ских праздников, ко­то­рые про­во­ди­ло кафе за по­след­ний год (Dat[1] — ко­ли­че­ство дет­ских празд­ни­ков в январе, Dat[2] — ко­ли­че­ство празд­ни­ков в фев­ра­ле и т. д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских языках.

 

Паскаль

Var k, m, month: integer;

Dat: array[1...12] of integer;

Begin

Dat[1] := 2

Dat[2] := 8

Dat[3] := 6

Dat[4] := 3

Dat[5] := 8

Dat[6] := 2

Dat[7] := 3

Dat[8] := 7

Dat[9] := 4

Dat[10] := 4

Dat[11] := 8

Dat[12] := 7

month:=1; m := Dat[1];

for k := 2 to 6 do

if Dat[k] m then

begin

m:= Dat[k];

month := k;

end;

write(month);

End.

5. В таб­ли­це A хра­нят­ся дан­ные о ко­ли­че­стве призёров олим­пи­а­ды по про­грам­ми­ро­ва­нию по де­вя­ти окру­гам Москвы. Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх язы­ках программирования.

 

Паскаль

var k, score: integer;

A: array[1..9] of integer;

begin

A[1]:=6; A[2]:=11;

A[3]:=7; A[4]:=12;

A[5]:=13; A[6]:=5;

A[7]:=9; A[8]:=3;

A[9]:=4;

score:= 0;

for k:=1 to 9 do

begin

if A[k] = 9 then

score:= score+A[k];

end;

write(score);

end.

 

20.2-1 Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет ко­ли­че­ство чисел, окан­чи­ва­ю­щих­ся на 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, окан­чи­ва­ю­ще­е­ся на 3. Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число — количество чисел, окан­чи­ва­ю­щих­ся на 3.

 

Пример ра­бо­ты программы:

 

Входные данные

Выходные данные

3
13
23
24

2

 

20.2-2 Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, крат­ное 4. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 4. Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число — максимальное число, крат­ное 4.

 

Пример ра­бо­ты программы:

 

Входные данные

Выходные данные

3
8
16
11

16







Вариант 1 Вариант 2







Вариант 1

Начало формы

Задание С2 № 441

 

Критерии оце­ни­ва­ния вы­пол­не­ния за­да­ния 20.2

Баллы

Предложено вер­ное решение. Про­грам­ма пра­виль­но ра­бо­та­ет на всех приведённых выше тестах. Про­грам­ма может быть за­пи­са­на на любом языке программирования

2

Программа выдаёт не­вер­ный ответ ровно на одном из тестов, приведённых выше ИЛИ Про­грам­ма выдаёт не­вер­ный ответ на всех тестах: на каж­дом тесте толь­ко на один из двух во­про­сов по­лу­чен пра­виль­ный ответ. ИЛИ Про­грам­ма выдаёт не­вер­ный ответ на всех тестах: сна­ча­ла вы­во­дит­ся ответ на вто­рой вопрос, затем — на первый

1

Программа выдаёт на те­стах не­вер­ные ответы, от­лич­ные от опи­сан­ных в кри­те­рии на 1 балл

0

Максимальный балл

2

 

20.2 Напишите про­грам­му для ре­ше­ния сле­ду­ю­щей задачи. Ка­ме­ра на­блю­де­ния ре­ги­стри­ру­ет в ав­то­ма­ти­че­ском ре­жи­ме ско­рость про­ез­жа­ю­щих мимо неё автомобилей, округ­ляя зна­че­ния ско­ро­сти до целых чисел. Не­об­хо­ди­мо определить:

 

1) разность мак­си­маль­ной и ми­ни­маль­ной ско­ро­стей автомобилей;

2) количество автомобилей, ско­рость ко­то­рых не пре­вы­ша­ла 30 км/ч.

 

Программа по­лу­ча­ет на вход число про­ехав­ших ав­то­мо­би­лей N (1 ≤ N ≤ 30), затем ука­зы­ва­ют­ся их скорости. Зна­че­ние ско­ро­сти не может быть мень­ше 1 и боль­ше 300. Про­грам­ма долж­на сна­ча­ла вы­ве­сти раз­ность мак­си­маль­ной и ми­ни­маль­ной ско­ро­стей автомобилей, затем ко­ли­че­ство автомобилей, ско­рость ко­то­рых не пре­вы­ша­ла 30 км/ч.

 

Пример ра­бо­ты программы:

 

Входные данные

Выходные данные

4
74
69
63
96

33
0

 

20.2 Решение

 

var N, a, i, max, num, min: integer; begin

max := 0; min := 301; num := 0;

readln(N);

for i := 1 to N do

begin

readln(a);

if a max then max := a; if a

end;

writeln(max - min); writeln(num)

end.

 

Для про­вер­ки пра­виль­но­сти ра­бо­ты про­грам­мы не­об­хо­ди­мо ис­поль­зо­вать сле­ду­ю­щие тесты:

 


Входные данные

Выходные данные

1

3

50

81

65

31

0

2

1

30

0

1

3

2

20

52

32

1

4

3

15

25

140

125

2

Задание С2 № 1031 

Критерии оце­ни­ва­ния вы­пол­не­ния за­да­ния 20.2

Баллы

Предложено вер­ное решение. Про­грам­ма пра­виль­но ра­бо­та­ет на

всех приведённых выше тестах. Про­грам­ма может быть за­пи­са­на на любом языке программирования.

2

Программа выдаёт не­вер­ный ответ на одном из тестов, приведённых выше. Например, решение, в ко­то­ром не за­да­но усло­вие от­бо­ра чисел: (a mod 6 = 0) вы­даст не­пра­виль­ный ответ на тесте № 3.

1

Не вы­пол­не­ны условия, поз­во­ля­ю­щие по­ста­вить 1 или 2 балла.

0

Максимальный балл

2

 

20.2 На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму всех чисел, крат­ных 6 и окан­чи­ва­ю­щих­ся на 4. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 – при­знак окон­ча­ния ввода, не вхо­дит в последовательность). Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно число: сумму всех чисел, крат­ных 6 и окан­чи­ва­ю­щих­ся на 4.

 

Пример ра­бо­ты программы:

 

Входные данные

Выходные данные

14

24

36

84

66

0

108



Пояснение.

20.1 Ко­ман­ды ис­пол­ни­те­ля будем за­пи­сы­вать жир­ным шрифтом, а комментарии, по­яс­ня­ю­щие ал­го­ритм и не яв­ля­ю­щи­е­ся его частью, —курсивом. На­ча­ло ком­мен­та­рия будем обо­зна­чать сим­во­лом «|».

 

|Двигаемся вправо, пока не дойдём до вто­ро­го вер­ти­каль­но­го отрезка.

нц пока спра­ва свободно

вправо

кц

 

|Обходим стену.

вверх

вправо

 

|Двигаемся вниз и за­кра­ши­ва­ем клетки.

нц пока снизу свободно

вниз

закрасить

кц

 

Возможны и дру­гие ва­ри­ан­ты решения. До­пус­ка­ет­ся ис­поль­зо­ва­ние иного син­так­си­са ин­струк­ций исполнителя,

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

 

20.2 Ре­ше­ни­ем яв­ля­ет­ся программа, за­пи­сан­ная на любом языке программирования. При­мер вер­но­го решения, за­пи­сан­но­го на языке Паскаль:

 

var a, s: integer;

begin

s:= 0;

readln(a);

while a0 do begin

if (a mod 6 = 0) and (a mod 10 = 4) then

s := s + a;

readln(a);

end;

writeln(s);

end.

 

Возможны и дру­гие ва­ри­ан­ты решения. Для про­вер­ки пра­виль­но­сти ра­бо­ты про­грам­мы не­об­хо­ди­мо ис­поль­зо­вать сле­ду­ю­щие тесты:

 

Входные данные

Выходные данные

1

24

84

0

108

2

60

0

0

3

34

0

0

4

31

54

0

54


Вариант 2

Задание С2 № 180

 

Критерии оце­ни­ва­ния вы­пол­не­ния за­да­ния 20.2

Баллы

Предложено вер­ное решение. Про­грам­ма пра­виль­но ра­бо­та­ет на всех приведённых выше тестах. Про­грам­ма может быть за­пи­са­на на любом языке программирования

2

Программа выдаёт не­вер­ный ответ на одном из тестов, приведённых выше

1

Программа выдаёт на те­стах не­вер­ные ответы, от­лич­ные от опи­сан­ных в кри­те­рии на 1 балл

0

Максимальный балл

2

 

20.2-1 Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет ко­ли­че­ство чисел, окан­чи­ва­ю­щих­ся на 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, окан­чи­ва­ю­ще­е­ся на 3. Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число — количество чисел, окан­чи­ва­ю­щих­ся на 3.

 

Пример ра­бо­ты программы:

 

Входные данные

Выходные данные

3
13
23
24

2


 

20.2 Решение

 

var n, s, k, g: integer;

begin

s:=0;

readln(n);

for k:=1 to n do

begin

readln(g);

if (g mod 10 = 3) then

s:=s+1;

end;

writeln(s);

end.

Задание С2 № 140

Критерии оце­ни­ва­ния вы­пол­не­ния за­да­ния 20.2

Баллы

Предложено вер­ное решение. Про­грам­ма пра­виль­но ра­бо­та­ет на всех приведённых выше тестах. Про­грам­ма может быть за­пи­са­на на любом языке программирования

2

Программа выдаёт не­вер­ный ответ на одном из тестов, приведённых выше

1

Программа выдаёт на те­стах не­вер­ные ответы, от­лич­ные от опи­сан­ных в кри­те­рии на 1 балл

0

Максимальный балл

2

 

20.2-2 Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, крат­ное 4. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 4. Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число — максимальное число, крат­ное 4.

 

Пример ра­бо­ты программы:

 

Входные данные

Выходные данные

3
8
16
11

16


20.2 Решение

 

var n, a, k, g: integer;

begin

g:=0;

readln(n);

for k:=1 to n do

begin

readln(a);

if (a mod 4 = 0) and (ag) then

g:=a;

end;

writeln(g);

end.

 

Для про­вер­ки пра­виль­но­сти ра­бо­ты про­грам­мы не­об­хо­ди­мо ис­поль­зо­вать сле­ду­ю­щие тесты:

 


Входные данные

Выходные данные

1

2

4

6

4

2

3

12

20

16

20

3

3

4

44

24

44