СР_9класс_информатика

1 Вариант: 1,3,5

2 Вариант: 2,4, 6

1. Задание

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

Алгоритмический язык	Бейсик	Паскаль
алг нач цел s, k s := 8, нц для k от 14 до 18 s := s+6 кц вывод s кон	DIM k, s AS INTEGER s = 8 FOR k = 14 TO 18 s = s+6 NEXT k PRINT s	Var s,k: integer; Begin s := 8; for k := 14 to 18 do s := s+6; writeln(s); End.

2. Задание 

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

Алгоритмический язык	Бейсик	Паскаль
алгнач цел s, i s := 3 нц для i от 2 до 5 s := s + 2*i кц вывод s кон	DIM i, s AS INTEGERs = 3 FOR i = 2 TO 5 s = s + 2*i NEXT i PRINT s	Var s, i: integer; Begin s := 3; For i := 2 to 5 do s := s + 2*i; Writeln(s); End.

3. Задание 

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

Алгоритмический язык	Бейсик	Паскаль
алгнач цел s, k s := 50 нц для k от 1 до 9 s := s - 3 кц вывод s кон	s = 50 FOR к = 1 TO 9 s = s - 3 NEXT k PRINT s END	Var s, k: integer; Begin s := 50; for k := 1 to 9 do s := s - 3; write (s); End.

4. Задание 

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

Алгоритмический язык	Бейсик	Паскаль
алгнач цел s, k s := 50 нц для k от 0 до 8 s := s - 4 кц вывод s кон	DIM k, s AS INTEGERs = 50 FOR к = 0 TO 8 s = s - 4 NEXT k PRINT s END	Var s,k: integer; Begin s := 50; for k := 0 to 8 do s := s - 4; writeln(s); End.

5. Задание 

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

Алгоритмический язык	Бейсик	Паскаль
алгнач цел s, k s := 100 нц для k от 1 до 9 s := s - 5 кц вывод s кон	DIM k, s AS INTEGERs = 100 FOR k = 1 TO 9 s = s - 5 NEXT k PRINT s END	Var s, k: integer; Begin s := 100; for k := 1 to 9 do s := s - 5; write (s); End.

6. Задание 

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

Алгоритмический язык	Бейсик	Паскаль
алгнач цел s, k s := 8 нц для k от 3 до 8 s := s + 8 кц вывод s кон	DIM k, s AS INTEGERs = 8 FOR к = 3 TO 8 s = s + 8 NEXT k PRINT s	Var s,k: integer; Begin s := 8; for k := 3 to 8 do s := s + 8; writeln(s); End.