Задания
Версия для печати и копирования в MS Word
Тип Д25 C2 № 7770
i

Дан це­ло­чис­лен­ный мас­сив из 40 эле­мен­тов. Эле­мен­ты мас­си­ва могут при­ни­мать целые зна­че­ния от –100 до 100 вклю­чи­тель­но. Опи­ши­те на есте­ствен­ном языке или на одном из язы­ков про­грам­ми­ро­ва­ния ал­го­ритм, поз­во­ля­ю­щий найти и вы­ве­сти ко­ли­че­ство пар эле­мен­тов мас­си­ва, про­из­ве­де­ние ко­то­рых по­ло­жи­тель­но, а сумма крат­на 7. Под парой под­ра­зу­ме­ва­ет­ся два под­ряд иду­щих эле­мен­та мас­си­ва. Ис­ход­ные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже на при­ме­рах для не­ко­то­рых язы­ков про­грам­ми­ро­ва­ния и есте­ствен­но­го языка. За­пре­ща­ет­ся ис­поль­зо­вать пе­ре­мен­ные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся не ис­поль­зо­вать не­ко­то­рые из опи­сан­ных пе­ре­мен­ных.

 

Бей­сикПас­каль

N = 40

DIM A(N) AS LONG

DIM I, J, K AS LONG

FOR I = 1 TO N

INPUT A(I)

NEXT I

...

END

const

N = 40;

var

a: array [1..N] of longint;

i, j, k: longint;

begin

for i := 1 to N do

readln(a[i]);

...

end.

Си++Ал­го­рит­ми­че­ский язык

#include

#define N 40

int main()

{

long a[N];

long i, j, k;

for (i = 0; i < N; i++)

cin >> a[i];

...

}

алг

нач

цел N = 40

цел таб a[1:N]

цел i, j, k

нц для i от 1 до N

ввод a[i]

кц

...

кон

Есте­ствен­ный язык

Объ­яв­ля­ем мас­сив A из 40 эле­мен­тов.

Объ­яв­ля­ем це­ло­чис­лен­ные пе­ре­мен­ные I, J, K.

В цикле от 1 до 40 вво­дим эле­мен­ты мас­си­ва A с 1-го по 40-й.

...

Python

// до­пус­ка­ет­ся также ис­поль­зо­вать

// две це­ло­чис­лен­ные пе­ре­мен­ные

// j и k

a = []

n = 40

for i in range(0, n):

a.append(int(input()))

 

В ка­че­стве от­ве­та Вам не­об­хо­ди­мо при­ве­сти фраг­мент про­грам­мы, ко­то­рый дол­жен на­хо­дить­ся на месте мно­го­то­чия. Вы мо­же­те за­пи­сать ре­ше­ние также на дру­гом языке про­грам­ми­ро­ва­ния (ука­жи­те на­зва­ние и ис­поль­зу­е­мую вер­сию языка про­грам­ми­ро­ва­ния, на­при­мер, Free Pascal 2.6). В этом слу­чае Вы долж­ны ис­поль­зо­вать те же самые ис­ход­ные дан­ные и пе­ре­мен­ные, какие были пред­ло­же­ны в при­ведённых фраг­мен­тах.

Спрятать решение

Ре­ше­ние.

Пас­каль
k := 0;

for i := 1 to N - 1 do

if ((a[i] + a[i + 1] ) mod 7 = 0) and (a[i] * a[i + 1] >

0) then

inc(k);

writeln(k);

Ал­го­рит­ми­че­ский язык
k := 0

нц для i от 1 до N - 1

если mod(a[i] + a[i + 1], 7) = 0 и a[i] * a[i + 1] > 0

то

k := k + 1

все

кц

вывод k

Бей­сик
K = 0

K = 0

FOR I = 1 TO N-1

IF (A(I) + A(I + 1)) MOD 7 = 0 AND A(I) * A(I + 1) > 0

THEN

K = K + 1

END IF

NEXT I

PRINT K

Python
k = 0

for i in range(N - 1):

if (a[i] + a[i + 1]) % 7 == 0 and a[i] * a[i + 1] > 0:

k += 1

print(k)

Си
k = 0;

for (i = 0; i < N - 1; i++)

if ((a[i] + a[i + 1]) % 7 == 0 && a[i] * a[i + 1] > 0)

k++;

cout << k;

На есте­ствен­ном языке
За­пи­сы­ва­ем в пе­ре­мен­ную K на­чаль­ное зна­че­ние, рав­ное 0. В цикле от пер­во­го эле­мен­та до пред­по­след­не­го на­хо­дим оста­ток от де­ле­ния суммы те­ку­ще­го и сле­ду­ю­ще­го эле­мен­тов мас­си­ва на 7. Если зна­че­ние дан­но­го остат­ка равно 0 и про­из­ве­де­ние те­ку­ще­го и сле­ду­ю­ще­го эле­мен­тов мас­си­ва боль­ше 0, уве­ли­чи­ва­ем пе­ре­мен­ную K на еди­ни­цу. После за­вер­ше­ния цикла вы­во­дим зна­че­ние пе­ре­мен­ной K
Спрятать критерии
Критерии проверки:

Общие ука­за­ния.

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

ис­ка­жа­ю­щих за­мыс­ла ав­то­ра про­грам­мы. 2. Эф­фек­тив­ность ал­го­рит­ма не имеет зна­че­ния и не оце­ни­ва­ет­ся.

3. До­пус­ка­ет­ся за­пись ал­го­рит­ма на языке про­грам­ми­ро­ва­ния, от­лич­ном от язы­ков, пе­ре­чис­лен­ных в усло­вии. В этом слу­чае долж­ны ис­поль­зо­вать­ся пе­ре­мен­ные, ана­ло­гич­ные опи­сан­ным в усло­вии. Если язык про­грам­ми­ро­ва­ния ис­поль­зу­ет ти­пи­зи­ро­ван­ные пе­ре­мен­ные, опи­са­ния пе­ре­мен­ных долж­ны быть ана­ло­гич­ны опи­са­ни­ям пе­ре­мен­ных в при­ве­ден­ных фраг­мен­тах. Ис­поль­зо­ва­ние не­ти­пи­зи­ро­ван­ных или не­объ­яв­лен­ных пе­ре­мен­ных воз­мож­но толь­ко в слу­чае, если это до­пус­ка­ет­ся язы­ком про­грам­ми­ро­ва­ния; при этом ко­ли­че­ство пе­ре­мен­ных и их иден­ти­фи­ка­то­ры долж­ны со­от­вет­ство­вать усло­вию за­да­чи.

 

Кри­те­рии оце­ни­ва­ния вы­пол­не­ния за­да­нияБаллы
Пред­ло­жен пра­виль­ный ал­го­ритм, вы­да­ю­щий вер­ное зна­че­ние. До­пус­ка­ет­ся за­пись ал­го­рит­ма на дру­гом языке, ис­поль­зу­ю­щая ана­ло­гич­ные пе­ре­мен­ные. В слу­чае, если язык про­грам­ми­ро­ва­ния ис­поль­зу­ет ти­пи­зи­ро­ван­ные пе­ре­мен­ные, опи­са­ния пе­ре­мен­ных долж­ны быть ана­ло­гич­ны опи­са­ни­ям пе­ре­мен­ных на есте­ствен­ном языке. Ис­поль­зо­ва­ние не­ти­пи­зи­ро­ван­ных или не­объ­яв­лен­ных пе­ре­мен­ных воз­мож­но толь­ко в слу­чае, если это до­пус­ка­ет­ся язы­ком про­грам­ми­ро­ва­ния, при этом ко­ли­че­ство пе­ре­мен­ных и их иден­ти­фи­ка­то­ры долж­ны со­от­вет­ство­вать усло­вию за­да­чи. В ал­го­рит­ме, за­пи­сан­ном на языке про­грам­ми­ро­ва­ния, до­пус­ка­ет­ся на­ли­чие от­дель­ных син­так­си­че­ских оши­бок, не ис­ка­жа­ю­щих за­мыс­ла ав­то­ра про­грам­мы.2
Не вы­пол­не­ны усло­вия, поз­во­ля­ю­щие по­ста­вить 2 балла.

Пред­ло­же­но в целом вер­ное ре­ше­ние, со­дер­жа­щее не более одной ошиб­ки из числа сле­ду­ю­щих:

1) в цикле про­ис­хо­дит выход за гра­ни­цу мас­си­ва (на­при­мер, ис­поль­зу­ет­ся цикл от 1 до N);

2) не ини­ци­а­ли­зи­ру­ет­ся или не­вер­но ини­ци­а­ли­зи­ру­ет­ся счётчик ко­ли­че­ства най­ден­ных пар;

3) счётчик ко­ли­че­ства пар в цикле не из­ме­ня­ет­ся или из­ме­ня­ет­ся не­вер­но;

4) не­вер­но про­ве­ря­ет­ся де­ли­мость на два или на че­ты­ре;

5) на де­ли­мость про­ве­ря­ют­ся не сами эле­мен­ты, а их ин­дек­сы;

6) при про­вер­ке вы­пол­не­ния усло­вия для пары эле­мен­тов ис­поль­зу­ют­ся не­вер­ные ин­дек­сы;

7) в слож­ном ло­ги­че­ском усло­вии про­стые про­вер­ки верны, но усло­вие в целом по­стро­е­но не­вер­но (на­при­мер, пе­ре­пу­та­ны опе­ра­ции «И» и «ИЛИ», не­вер­но рас­став­ле­ны скоб­ки в ло­ги­че­ском вы­ра­же­нии);

8) от­сут­ству­ет вывод от­ве­та;

9) ис­поль­зу­ет­ся пе­ре­мен­ная, не объ­яв­лен­ная в раз­де­ле опи­са­ния пе­ре­мен­ных;

10) не ука­за­но или не­вер­но ука­за­но усло­вие за­вер­ше­ния цикла;

11) ин­декс­ная пе­ре­мен­ная в цикле не ме­ня­ет­ся (на­при­мер, в цикле while) или ме­ня­ет­ся не­вер­но;

12) не­вер­но рас­став­ле­ны опе­ра­тор­ные скоб­ки.

1
Не вы­пол­не­ны усло­вия, поз­во­ля­ю­щие по­ста­вить 1 или 2 балла. На­при­мер, оши­бок, пе­ре­чис­лен­ных в п. 1–11, две или боль­ше, или ал­го­ритм сфор­му­ли­ро­ван не­вер­но.0
Мак­си­маль­ный балл2
Спрятать решение · КритерииСпрятать критерии · Помощь


О про­ек­те · Ре­дак­ция · Пра­во­вая ин­фор­ма­ция · О ре­кла­ме
© Гущин Д. Д., 2011—2026