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

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

Выбрать материалы

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

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

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

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

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

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

Итоги урока

Обо мне Блог Файлы Тесты Галерея Активность Награды

Задания 8, 9, 10 для подготовки к ОГЭ по информатике

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

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

Задания для подготовки к ОГЭ по информатике

Использованы материалы для работы с сайта https://inf-oge.sdamgia.ru/?redir=1

Просмотр содержимого документа
«Задания 8, 9, 10 для подготовки к ОГЭ по информатике»

1. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния ал­го­рит­ма:

а := 10

b := 1

b := a/2*b

a := 2*а + 3*b

 В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.

2. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам ариф­ме­ти­ки.

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

k := 5

m := 90

k := m-k*2

m := k*3-m

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной m.

3. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния ал­го­рит­ма:

а := 1

b := 4

а := 2*а + 3*b

b := a/2*b

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b.

4. В ал­го­рит­ме, за­пи­сан­ном ниже, ис­поль­зу­ют­ся пе­ре­мен­ные a и b. Сим­вол «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния ал­го­рит­ма:

a := 10

b := 5

b := 100 + a/b

a := b/6*a

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.

5. В ал­го­рит­ме, за­пи­сан­ном ниже, ис­поль­зу­ют­ся пе­ре­мен­ные a и b. Сим­вол «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния ал­го­рит­ма:

а := 100

b := 50

b := а - b/2

а := a/5 + b/3

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.

6. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам ариф­ме­ти­ки.

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

k := 3

m := 30

k := m-k*3

m := k*10-m

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной m.

7. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния ал­го­рит­ма:

а := 5

b := 4

а := 2*а + 3*b

b := a/2*b

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b.

8. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам ариф­ме­ти­ки.

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

a := 3

b := 7

b := 9+a*b

a := b/5*a

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.

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

Алгорит.

язык

Пас­каль

алг

нач

цел t,i

t := 2

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

t := t * i

кц

вывод t

кон

Var t,i: integer;

Begin

t := 2;

For i := 1 to 3 do

t := t * i;

Writeln(t);

End.


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

Алгорит. язык

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 12 до 15

s := s + 13

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 12 to 15 do

s := s + 13;

writeln(s);

End.


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

Алгорит. язык

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 6 до 10

s := s + 10

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 10 do

s := s + 10;

writeln(s);

End.


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

Алгорит. язык

Пас­каль

алг

нач

цел u,i

u := 26

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

u := u – i

кц

вывод u

кон

Var u,i: integer;

Begin

u := 26;

For i := 1 to 5 do

u := u – i;

Writeln(u);

End.


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

Алгорит. язык

Пас­каль

алг

нач

цел s,k

s:=100

нц для k от 0 до 10

s:=s-5

кц

вывод s

кон

var s, k:integer;

begin

s:= 100;

for k:= 0 to 10 do

s:= s - 5;

writeln (s);

end.


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

Алгорит. язык

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 4 до 7

s := s + 8

кц вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 4 to 7 do

s := s + 8;

writeln(s);

End.


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

Алгорит. язык

Пас­каль

алг

нач

цел k, i

k := 4

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

k := i + 2*k

кц вывод k

кон

Var k, i: integer;

Begin

k := 4;

For i := 1 to 3 do

k := i + 2*k;

Writeln(k);

End.


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

Алгорит. язык

Пас­каль

алг

нач

цел s, k

s := 1

нц для k от 3 до 0 шаг −1

s := s*3

кц вывод s

кон

Var s, k: integer;

Begin

s := 1;

for k := 3 downto 0 do

s := s*3;

write (s);

End.


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

 Алгорит. язык

Пас­каль

алг нач

цел­таб Dat[1:10]

цел к, m

Dat[1] := 16 ;Dat[2] := 20 ;Dat[3] := 20 ;Dat[4] := 41 ;Dat[5] := 14 ;Dat[6] := 21 ;Dat[7] := 28 ;Dat[8] := 12 ;Dat[9] := 15 Dat[10] := 35;

m := 0

нц для к от 1 до 10

если Dat[к]

m : = m+1

все КЦ

вывод m КОН

Var k, m: integer;

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

Begin

Dat[1] := 16; Dat[2] := 20;Dat[3] := 20; Dat[4] := 41;Dat[5] := 14; Dat[6] := 21;Dat[7] := 28; Dat[8] := 12;Dat[9] := 15; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k]

begin m := m+1

end;

writeln(m); End.


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

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

Алгорит. язык

Пас­каль

алг

нач

цел­таб Tem[1:12]

цел k, b

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

нц для k от 1 до 12

если Tem[k]

b := b + Tem[k]

все кц вывод b

кон

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.


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

Алгорит. язык

Пас­каль

алг

нач

цел­таб Dat[1:11]

цел к, m

Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26;

Dat[6] := 22; Dat[7] := 24;

Dat[8] := 28; Dat[9] := 26;

Dat[10] := 21;Dat[11] := 27;

m := 0

нц для к от 1 до 11

если Dat[к] 22 то

m : = m+1

все

КЦ вывод m

КОН

Var k, m: integer;

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

Begin

Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26;

Dat[6] := 22; Dat[7] := 24;

Dat[8] := 28; Dat[9] := 26;

Dat[10] := 21;Dat[11] := 27;

m := 0

for k := 1 to 11 do

if Dat[k] 22 then

begin

m := m+1;

end;

writeln(m);

End.


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

Алгорит. язык

Пас­каль

алг

нач

цел­таб Dat[1:10]

цел к, m

Dat[1] := 16; Dat[2] := 20; Dat[3] := 20; Dat[4] := 41; Dat[5] := 14; Dat[6] := 21; Dat[7] := 28; Dat[8] := 12; Dat[9] := 15; Dat[10] := 35;

m := 0

нц для к от 1 до 10

если Dat[к] m то

m : = Dat[к]

все

КЦ вывод m КОН

Var k, m: integer;

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

Begin

Dat[1] := 16; Dat[2] := 20;

Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 21;

Dat[7] := 28; Dat[8] := 12;

Dat[9] := 15; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k] m then

begin

m := Dat[k]

end; writeln(m); End.


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

Алгорит. язык

Пас­каль

алг

нач

цел­таб A[1:9]

цел k, score

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

нц для k от 1 до 9

если A[k] = 9 то

score:=score+A[k]

все

кц

вывод score

кон

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.


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

Алгорит. язык

Пас­каль

алг

нач

цел­таб Dat[1:10]

цел k, m, n

Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 5; Dat[5] := 6; Dat[6] := 7;

Dat[7] := 9; Dat[8] := 10; Dat[9] := 6; Dat[10] := 9;

m := 0; n := 0;

нц для k от 1 до 10

если Dat[k] = m то

m := Dat[k]

n := k

все

кц

вывод n кон

Var k, m, n: integer;

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

Begin

Dat[1] := 7; Dat[2] := 9;

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

Dat[5] := 6; Dat[6] := 7;

Dat[7] := 9; Dat[8] := 10;

Dat[9] := 6; Dat[10] := 9;

m := 0; n := 0;

for k := 1 to 10 do

if Dat[k] = m then

begin

m := Dat[k]; n := k

end;

writeln(n)

End.


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

 Алгорит. язык

Пас­каль

алг

нач

цел­таб Dat[1:10]

цел k, m, day

Dat[1] := 2; Dat[2] := 6;Dat[3] := 3;

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

Dat[7] := 5; Dat[8] := 3; Dat[9] := 6;

Dat[10] := 2;

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

нц для k от 2 до 10

если Dat[к] m то

m:= Dat[k]

day := k

все

КЦ вывод day

КОН

Var k, m, day: integer;

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

Begin

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

Dat[7] := 5; Dat[8] := 3; Dat[9] := 6;

Dat[10] := 2;

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.


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

Алгорит. язык

Пас­каль

алг

нач

цел­таб Dat[1:10]

цел к, m

Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13;

Dat[9] := 14; Dat[10] := 15;

m := 0

нц для к от 1 до 10

если Dat[к] 12 то

m : = m + 1 все

КЦ вывод m КОН

Var k, m: integer;

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

Begin

Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13;

Dat[9] := 14; Dat[10] := 15;

m := 0;

for k := 1 to 10 do

if Dat[k] 12 then

begin

m := m + 1 end;

writeln(m); End.


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

 Алгорит. язык

Пас­каль

алг

нач цел­таб Dat[1:12]

цел к, m, term

Dat[1] := 2; Dat[2] := 5; Dat[3] := 6; Dat[4] := 8; Dat[5] := 8; Dat[6] := 5; Dat[7] := 3; Dat[8] := 7;

Dat[9] := 4; Dat[10] := 4; Dat[11] := 8; Dat[12] := 7;

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

нц для к от 2 до 12

если Dat[к] = m то m:= Dat[k]

month := k

все КЦ

вывод month КОН

Var k, m, month: integer;

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

Begin

Dat[1] := 2; Dat[2] := 5; Dat[3] := 6; Dat[4] := 8; Dat[5] := 8; Dat[6] := 5; 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 12 do

if Dat[k] = m then

begin m:= Dat[k];

month := k; end; write(month);

End.




Ответы на задания 8, 9, 10


№

Ответ

№

Ответ

№

Ответ

1

35

11

50

21

45

2

150

12

11

22

8

3

28

13

45

23

2

4

170

14

32

24

7

5

45

15

43

25

11

6

180

16

81

26


7

44

17

7

27


8

18

18

65

28


9

12

19

7

29


10

52

20

41

30











Информатика 6 класс ФГОС

Электронная тетрадь по информатике 7...

Электронная тетрадь по информатике 8...

Информатика 5 класс (Россия)

Информатика 8 класс ФГОС

Информатика 7 класс (Россия)

Электронная тетрадь по информатике 9...

Электронная тетрадь по информатике 7...
Скачать

© 2017, 1204 21

Похожие файлы

0 Нет комментариев

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!

Полезное для учителя

Новости проекта
03.06.24

Лайфхак учителя №1! Что делать с плохой накопляемостью отметок

12.05.24

Лайфхак учителя №2! Как перестать бегать от ученика к ученику во время практической работы

04.05.24

Лайфхак учителя №3! Что делать, если вы устали из урока в урок повторять одно и то же