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

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

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

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

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

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

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

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

Итоги урока

Задания для подготовки к ОГЭ по информатике (№9 "Простейший циклический алгоритм, записанный на алгоритмическом языке")

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

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

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

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

Просмотр содержимого документа
«9 с ответами»

Задание 9. Ответы

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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 13 до 16

s := s + 14

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 13 to 16 do

s := s + 14;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 13 to 16 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 14. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 4 · 14 = 56.

Ответ: 56


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

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

Пас­каль

алг

нач

цел f,n

f := 4

f := f*3

нц для n от 1 до 4

f := f + n

кц

вывод f

кон

Var f,n: integer;

Begin

f := 4;

f := f*3;

For n := 1 to 4 do

f := f + n;

Writeln(f);

End.

По­яс­не­ние.

Цикл «for n := 1 to 4 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ная f уве­ли­чи­ва­ет­ся на n. По­сколь­ку из­на­чаль­но f = 4 · 3 = 12, после вы­пол­не­ния про­грам­мы по­лу­чим: f = 12 + 1 + 2 + 3 + 4 = 22.

Ответ: 22


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

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

Пас­каль

алг

нач

цел d,n

d := 5

d := d-3

нц для n от 1 до 4

d := d + n

кц

вывод d

кон

Var d,n: integer;

Begin

d := 5;

d := d-3;

For n := 1 to 4 do

d := d + n;

Writeln(d);

End.

По­яс­не­ние.

Цикл «for k := 1 to 4 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ная d уве­ли­чи­ва­ет­ся на n. По­сколь­ку из­на­чаль­но d = 5 − 3 = 2, после вы­пол­не­ния про­грам­мы по­лу­чим: d = 2 + 1 + 2 + 3 + 4 = 12.

Ответ: 12


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

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

Пас­каль

алг

нач

цел s, k

s := 50

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

s := s - 3

кц

вывод s

кон

Var s, k: integer;

Begin

s := 50;

for k := 1 to 9 do

s := s - 3;

write (s);

End.

По­яс­не­ние.

Цикл «for k := 1 to 9 do» вы­пол­ня­ет­ся де­вять раз. Каж­дый раз пе­ре­мен­ная s умень­ша­ет­ся на 3. По­сколь­ку из­на­чаль­но s = 50, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 50 − 9 · 3 = 23.

Ответ: 23


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 12

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 8 to 12 do

s := s + 12;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 8 to 12 do» вы­пол­ня­ет­ся пять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 12. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 5 · 12 = 60.

Ответ: 60


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 8

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 5 to 9 do

s := s + 8;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 5 to 9 do» вы­пол­ня­ет­ся пять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 8. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 5 · 8 = 40.

Ответ: 40


7. За­да­ние 9 № 149. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.

По­яс­не­ние.

Цикл «for k := 6 to 10 do» вы­пол­ня­ет­ся пять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 10. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 5 · 10 = 50.

Ответ: 50


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

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

Пас­каль

алг

нач

цел d,n,i

n :=4

d := n*2

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

d := d + 2*i

кц

вывод d

кон

Var d,n,i:integer;

Begin

n := 4;

d := n*2;

For i := 1 to 3 do

d := d + 2*i;

Writeln(d);

End.

По­яс­не­ние.

Цикл for i := 1 to 3 do вы­пол­ня­ет­ся 3 раза. Каж­дый раз пе­ре­мен­ная d уве­ли­чи­ва­ет­ся на 2*i. по­сколь­ку из­на­чаль­но зна­че­ние d равно 8, после вы­пол­не­ния про­грам­мы по­лу­чим d = 8 + 2*1 + 2*2 + 2*3 = 20.

Ответ: 20


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 7

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 4 to 8 do

s := s + 7;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 4 to 8 do» вы­пол­ня­ет­ся пять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 7. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 7 · 5 = 35.

Ответ: 35


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 11

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 7 to 12 do

s := s + 11;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 7 to 12 do» вы­пол­ня­ет­ся шесть раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 11. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 6 · 11 = 66.

Ответ: 66


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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 3 до 8

s := s + 9

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 3 to 8 do

s := s + 9;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 3 to 8 do» вы­пол­ня­ет­ся шесть раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 9. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 9 · 6 = 54.

Ответ: 54


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

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

Пас­каль

алг

нач

цел t,i

t := 1

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

t := t * i

кц

вывод t

кон

Var t,i: integer;

Begin

t := 1;

For i := 1 to 4 do

t := t * i;

Writeln(t);

End.

По­яс­не­ние.

Цикл for i := 1 to 4 do вы­пол­ня­ет­ся 4 раза. Каж­дый раз пе­ре­мен­ная t умно­жа­ет­ся на i. по­сколь­ку из­на­чаль­но зна­че­ние t равно 1, после вы­пол­не­ния про­грам­мы по­лу­чим t = 1 · 1 · 2 · 3 · 4 = 24.

Ответ: 24


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

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

Пас­каль

алг

нач

цел s, k

s := 100

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

s := s - 5

кц

вывод s

кон

Var s, k: integer;

Begin

s := 100;

for k := 1 to 9 do

s := s - 5;

write (s);

End.

По­яс­не­ние.

Цикл «for k := 1 to 9 do» вы­пол­ня­ет­ся де­вять раз. Каж­дый раз пе­ре­мен­ная s умень­ша­ет­ся на 5. По­сколь­ку из­на­чаль­но s = 100, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 100 − 9 · 5 = 55.

Ответ: 55


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

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

Пас­каль

алг

нач

цел s, i

s := 3

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

s := s + 2*i

кц

вывод s

кон

Var s, i: integer;

Begin

s := 3;

For i := 2 to 5 do

s := s + 2*i;

Writeln(s);

End.

По­яс­не­ние.

Цикл «for i := 2 to 5 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ной s при­сва­и­ва­ет­ся зна­че­ние s + 2*i. Найдём зна­че­ния s после каж­до­го шага, учи­ты­вая, что из­на­чаль­но s = 3: 7; 13; 21; 31.

Ответ: 31


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

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

Пас­каль

алг

нач

цел s, k

s := 2

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

s := s*s

кц

вывод s

кон

Var s, k: integer;

Begin

s := 2;

for k := 1 to 3 do

s := s*s;

write (s);

End.

По­яс­не­ние.

Цикл «for k := 1 to 3 do» вы­пол­ня­ет­ся три раза. Каж­дый раз пе­ре­мен­ная s воз­во­дить­ся в квад­рат. По­сколь­ку из­на­чаль­но s = 2, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 162 = 256.

Ответ: 256


16. За­да­ние 9 № 289. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.

По­яс­не­ние.

Цикл «for k := 12 to 15 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 13. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 4 · 13 = 52.

Ответ: 52


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

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

Пас­каль

алг

нач

цел s, k

s:=0

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

s:=s+13

кц

вывод s

кон

Var u,i: integer;

Var s, k: integer;

Begin

s:=0;

for k:=3 to 10 do

s:=s+13;

write(s);

End.

По­яс­не­ние.

Цикл for i := 3 to 10 do вы­пол­нит­ся 8 раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 13. По­сколь­ку из­на­чаль­но зна­че­ние s равно 0, после вы­пол­не­ния про­грам­мы по­лу­чим s = 8 · 13 = 104.

Ответ: 104


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

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

Пас­каль

алг

нач

цел s, n

s := 5

нц для n от 2 до 4

s := s + (n-1)

кц

вывод s

кон

Var s, n: integer;

Begin

s := 5;

For n := 2 to 4 do

s := s + (n-1);

Writeln(s);

End.

По­яс­не­ние.

Цикл «for i := 2 to 4 do» вы­пол­ня­ет­ся три раза. Каж­дый раз пе­ре­мен­ной s при­сва­и­ва­ет­ся зна­че­ние s + (n-1). Найдём зна­че­ния s после каж­до­го шага, учи­ты­вая, что из­на­чаль­но s = 5: 6; 8; 11.

Ответ: 11


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

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

Пас­каль

алг

нач

цел s, k

s := 8

нц для k от 3 до 8

s := s + 8

кц

вывод s

кон

Var s,k: integer;

Begin

s := 8;

for k := 3 to 8 do

s := s + 8;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 3 to 8 do» вы­пол­ня­ет­ся шесть раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 8. По­сколь­ку из­на­чаль­но s = 8, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 8 + 6 · 8 = 56.

Ответ: 56


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 11

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 7 to 11 do

s := s + 11;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 7 to 11 do» вы­пол­ня­ет­ся пять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 11. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 5 · 11 = 55.

Ответ: 55


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

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

Пас­каль

алг

нач

    цел s, k

    s:=0,

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

        s:=s+12

    кц

    вывод s

кон

Var s,k: integer;

Begin

    s:=0;

for k:=1 to 11 do

        s:=s+12;

    write(s);

End.

По­яс­не­ние.

Цикл «for k:=1 to 11 do» вы­пол­ня­ет­ся один­на­дцать раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 12. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 11 · 12 = 132.

Ответ: 132


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 12

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 9 do

s := s + 12;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 6 to 9 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 12. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 4 · 12 = 48.

Ответ: 48


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 10

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 12 do

s := s + 10;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 6 to 12 do» вы­пол­ня­ет­ся семь раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 10. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 7 · 10 = 70.

Ответ: 70


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

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

Пас­каль

алг

нач

цел s, k

s := 50

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

s := s - 4

кц

вывод s

кон

Var s,k: integer;

Begin

s := 50;

for k := 0 to 8 do

s := s - 4;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 0 to 8 do» вы­пол­ня­ет­ся де­вять раз. Каж­дый раз пе­ре­мен­ная s умень­ша­ет­ся на 4. По­сколь­ку из­на­чаль­но s = 50, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 50 − 9 · 4 = 14.

Ответ: 14


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 6

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 3 to 7 do

s := s + 6;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 3 to 7 do» вы­пол­ня­ет­ся пять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 6. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 5 · 6 = 30.

Ответ: 30


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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 3 до 8

s := s + 7

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 3 to 8 do

s := s + 7;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 3 to 8 do» вы­пол­ня­ет­ся шесть раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 7. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 7 · 6 = 42.

Ответ: 42


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

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

Пас­каль

алг

нач

цел d,n

d := 6

d := d-2

нц для п от 1 до 4

d : = d + n

кц

вывод d

кон

Var d,n: integer;

Begin

d := 6;

d := d-2;

For n := 1 to 4 do

d : = d + n ;

Writeln(d);

End .

По­яс­не­ние.

Цикл «for n := 1 to 4 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ная d уве­ли­чи­ва­ет­ся на n. По­сколь­ку из­на­чаль­но d = 6 − 2 = 4, после вы­пол­не­ния про­грам­мы по­лу­чим: d = 4 + 1 + 2 + 3 + 4 = 14.

Ответ: 14


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

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

Пас­каль

алг

нач

цел s, k

s := 8,

нц для k от 14 до 18

s := s+6

кц

вывод s

кон

Var s,k: integer;

Begin

s := 8;

for k := 14 to 18 do

s := s+6;

writeln(s);

End.

По­яс­не­ние.

Цикл for i := 14 to 18 do вы­пол­нит­ся 5 раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 6. По­сколь­ку из­на­чаль­но зна­че­ние s равно 8, после вы­пол­не­ния про­грам­мы по­лу­чим s = 8+6 · 5 = 38.

Ответ: 38


29. За­да­ние 9 № 948. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.

По­яс­не­ние.

Цикл for i := 1 to 3 do вы­пол­ня­ет­ся 3 раза. Каж­дый раз пе­ре­мен­ная t умно­жа­ет­ся на i. по­сколь­ку из­на­чаль­но зна­че­ние t равно 2, после вы­пол­не­ния про­грам­мы по­лу­чим t = 2 · 1 · 2 · 3=12.

Ответ: 12


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 12

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 4 to 9 do

s := s + 12;

writeln(s);

End.

По­яс­не­ние.

Цикл for k := 4 to 9 do вы­пол­нит­ся 6 раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 12. По­сколь­ку из­на­чаль­но зна­че­ние s равно 0, после вы­пол­не­ния про­грам­мы по­лу­чим s = 0 + 6 · 12 = 72.

Ответ: 72


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

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

Пас­каль

алг

нач

цел s, n

s := 2

нц для n от 2 до 5

s := s + n*2

кц

вывод s

кон

Var s, n: integer;

Begin

s := 2;

For n := 2 to 5 do

s := s + n*2;

Writeln(s);

End.

По­яс­не­ние.

Цикл «for i := 2 to 5 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ной s при­сва­и­ва­ет­ся зна­че­ние s + n*2. Найдём зна­че­ния s после каж­до­го шага, учи­ты­вая, что из­на­чаль­но s = 2: 6; 12; 20; 30.

Ответ: 30


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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 3 до 8

s := s + 6

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 3 to 8 do

s := s + 6;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 3 to 8 do» вы­пол­ня­ет­ся шесть раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 6. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 6 · 6 = 36.

Ответ: 36


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

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

Пас­каль

алг

нач

цел n, s

s := 1

нц для n от 2 до 5

s := s * 3

кц

вывод s

кон

var n, s: integer;

begin

s := 1;

for n := 2 to 5 do

s := s * 3;

write(s);

end.

По­яс­не­ние.

Цикл for n := 2 to 5 do вы­пол­ня­ет­ся 4 раза. Каж­дый раз пе­ре­мен­ная s умно­жа­ет­ся на 3. по­сколь­ку из­на­чаль­но зна­че­ние s равно 1, после вы­пол­не­ния про­грам­мы по­лу­чим s = 34 = 81.

Ответ: 81


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

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

Пас­каль

алг

нач

цел y, i

y := 5

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

y := y + 5*i

кц

вывод y

кон

Var y,i: integer;

Begin

y := 5;

For i := 1 to 3 do

y := y + 5*i;

Writeln(y);

End.

По­яс­не­ние.

Цикл «for i := 1 to 3 do» вы­пол­ня­ет­ся три раза. Каж­дый раз пе­ре­мен­ная y уве­ли­чи­ва­ет­ся на 5*i. По­сколь­ку из­на­чаль­но y = 5, после вы­пол­не­ния про­грам­мы по­лу­чим: y = 5 + 5 + 10 + 15 = 35.

Ответ: 35


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 9

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 9 to 13 do

s := s + 9;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 9 to 13 do» вы­пол­ня­ет­ся пять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 9. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 5 · 9 = 45.

Ответ: 45


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

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

Пас­каль

алг

нач

цел 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.

По­яс­не­ние.

Цикл «for k := 3 downto 0 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ная s умно­жа­ет­ся на 3. По­сколь­ку из­на­чаль­но s = 1, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 1 · 3 · 3 · 3 · 3 = 81.

Ответ: 81


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

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

Пас­каль

алг

нач

цел d,n,i

n :=3

d := n*3

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

d := d + i

кц

вывод d

кон

Var d,n,i: integer;

Begin

n := 3;

d := n*3;

For i := 1 to 3 do

d := d + i;

Writeln(d);

End.

По­яс­не­ние.

Цикл for i := 1 to 3 do вы­пол­ня­ет­ся 3 раза. Каж­дый раз пе­ре­мен­ная d уве­ли­чи­ва­ет­ся на i. по­сколь­ку из­на­чаль­но зна­че­ние d равно 9, после вы­пол­не­ния про­грам­мы по­лу­чим d = 9 + 1 + 2 + 3 = 15.

Ответ: 15


38. За­да­ние 9 № 49. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.

По­яс­не­ние.

Цикл «for k := 4 to 7 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 8. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 8 · 4 = 32.

Ответ: 32


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

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

Пас­каль

алг

нач

цел s, k

s := 1

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

s := s + 5

кц

вывод s

кон

Var s, k: integer;

Begin

s := 1;

for k := 0 to 9 do

s := s + 5;

write (s);

End.

По­яс­не­ние.

Цикл «for k := 0 to 9 do» вы­пол­ня­ет­ся де­сять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 5. По­сколь­ку из­на­чаль­но s = 1, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 1 + 10 · 5 = 51.

Ответ: 51


40. За­да­ние 9 № 1143. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.

По­яс­не­ние.

Цикл for k := 0 to 10 do вы­пол­нит­ся 11 раз. Каж­дый раз пе­ре­мен­ная s умень­ша­ет­ся на 5. По­сколь­ку из­на­чаль­но зна­че­ние s равно 100, после вы­пол­не­ния про­грам­мы по­лу­чим s = 100 − 5 · 11 = 45.

Ответ: 45


41. За­да­ние 9 № 1040. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.

По­яс­не­ние.

Цикл for i := 1 to 5 do вы­пол­нит­ся 5 раз. Каж­дый раз пе­ре­мен­ная u умень­ша­ет­ся на i. По­сколь­ку из­на­чаль­но зна­че­ние u равно 26, после вы­пол­не­ния про­грам­мы по­лу­чим u = 26 − 1 − 2 − 3 − 4 − 5 = 11.

Ответ: 11


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

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

Пас­каль

алг

нач

цел k, i

k := 2

нц для i от 0 до 2

k := i + 3*k

кц

вывод k

кон

Var k, i: integer;

Begin

k := 2;

For i := 0 to 2 do

k := i + 3*k;

Writeln(k);

End.

По­яс­не­ние.

Цикл «for i := 0 to 2 do» вы­пол­ня­ет­ся три раза. Каж­дый раз пе­ре­мен­ной k при­сва­и­ва­ет­ся зна­че­ние i + 3*k. Найдём зна­че­ния k после каж­до­го шага, учи­ты­вая, что из­на­чаль­но k = 2: 6; 19; 59.

Ответ: 59


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

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

Пас­каль

алг

нач

цел y, i

y := 0

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

y := y + 4*i

кц

вывод y

кон

Var y,i: integer;

Begin

y := 0;

For i := 1 to 3 do

y := y + 4*i;

Writeln(y);

End.

По­яс­не­ние.

Цикл «for i := 1 to 3 do» вы­пол­ня­ет­ся три раза. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 4*i. По­сколь­ку из­на­чаль­но y = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: y = 4 + 8 + 12 = 24.

Ответ: 24


44. За­да­ние 9 № 590. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.

По­яс­не­ние.

Цикл «for i := 1 to 3 do» вы­пол­ня­ет­ся три раза. Каж­дый раз пе­ре­мен­ной k при­сва­и­ва­ет­ся зна­че­ние i + 2*k. Найдём зна­че­ния k после каж­до­го шага, учи­ты­вая, что из­на­чаль­но k = 4: 9; 20; 43.

Ответ: 43


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

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

Пас­каль

алг

нач

цел s, n

s := 2

нц для n от 2 до 5

s := s*2 + n

кц

вывод s

кон

Var s, n: integer;

Begin

s := 2;

For n := 2 to 5 do

s := s*2 + n;

Writeln(s);

End.

По­яс­не­ние.

Цикл «for i := 2 to 5 do» вы­пол­ня­ет­ся че­ты­ре раза. Каж­дый раз пе­ре­мен­ной s при­сва­и­ва­ет­ся зна­че­ние s*2 + n. Найдём зна­че­ния s после каж­до­го шага, учи­ты­вая, что из­на­чаль­но s = 2: 6; 15; 34; 73.

Ответ: 73


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s+10

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 12 do

s := s+10;

writeln(s);

End.

По­яс­не­ние.

Цикл for k := 6 to 12 do вы­пол­нит­ся 7 раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 10. По­сколь­ку из­на­чаль­но зна­че­ние s равно 0, после вы­пол­не­ния про­грам­мы по­лу­чим s = 70.

Ответ: 70


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

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

Пас­каль

алг

нач

цел n, s

s := 0

нц для n от 3 до 7

s := s + 2 * n

кц

вывод s

кон

var n, s: integer;

begin

s := 0;

for n := 3 to 7 do

s := s + 2 * n;

write(s);

end.

По­яс­не­ние.

Цикл for n := 3 to 7 do вы­пол­ня­ет­ся 5 раз. Каж­дый раз пе­ре­мен­ная s умно­жа­ет­ся на 2*n. по­сколь­ку из­на­чаль­но зна­че­ние s равно 0, после вы­пол­не­ния про­грам­мы по­лу­чим s = 2*3+2*4+2*5+2*6+2*7 = 50.

Ответ: 50



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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 10

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 12 do

s := s + 10;

writeln(s);

End.

По­яс­не­ние.

Цикл «for k := 6 to 12 do» вы­пол­ня­ет­ся семь раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 10. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 7 · 10 = 70.

Ответ: 70


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

Ответ


Ответ

1


26


2


27


3


28


4


29


5


30


6


31


7


32


8


33


9


34


10


35


11


36


12


37


13


38


14


39


15


40


16


41


17


42


18


43


19


44


20


45


21


46


22


47


23


48


24


49


25


50




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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 14 до 18

s := s+7

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 14 to 18 do

s := s+7;

writeln(s);

End.

По­яс­не­ние.

Цикл for k := 14 to 18 do вы­пол­нит­ся 5 раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 7. По­сколь­ку из­на­чаль­но зна­че­ние s равно 0, после вы­пол­не­ния про­грам­мы по­лу­чим s = 0 + 7 · 5 = 35.

Ответ: 35


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

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

Пас­каль

алг

нач

цел s, k

s := 3

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

s := s + 3

кц

вывод s

кон

Var s, k: integer;

Begin

s := 3;

for k := 0 to 9 do

s := s + 3;

write (s);

End.

По­яс­не­ние.

Цикл «for k := 0 to 9 do» вы­пол­ня­ет­ся де­сять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 3. По­сколь­ку из­на­чаль­но s = 3, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 3 + 10 · 3 = 33.

Ответ: 33


Просмотр содержимого документа
«9»

За­да­ние 9 

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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 13 до 16

s := s + 14

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 13 to 16 do

s := s + 14;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел f,n

f := 4

f := f*3

нц для n от 1 до 4

f := f + n

кц

вывод f

кон

Var f,n: integer;

Begin

f := 4;

f := f*3;

For n := 1 to 4 do

f := f + n;

Writeln(f);

End.


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

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

Пас­каль

алг

нач

цел d,n

d := 5

d := d-3

нц для n от 1 до 4

d := d + n

кц

вывод d

кон

Var d,n: integer;

Begin

d := 5;

d := d-3;

For n := 1 to 4 do

d := d + n;

Writeln(d);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 50

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

s := s - 3

кц

вывод s

кон

Var s, k: integer;

Begin

s := 50;

for k := 1 to 9 do

s := s - 3;

write (s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 12

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 8 to 12 do

s := s + 12;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 8

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 5 to 9 do

s := s + 8;

writeln(s);

End.


7. За­да­ние 9 № 149. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.


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

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

Пас­каль

алг

нач

цел d,n,i

n :=4

d := n*2

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

d := d + 2*i

кц

вывод d

кон

Var d,n,i:integer;

Begin

n := 4;

d := n*2;

For i := 1 to 3 do

d := d + 2*i;

Writeln(d);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 7

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 4 to 8 do

s := s + 7;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 11

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 7 to 12 do

s := s + 11;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 3 до 8

s := s + 9

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 3 to 8 do

s := s + 9;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел t,i

t := 1

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

t := t * i

кц

вывод t

кон

Var t,i: integer;

Begin

t := 1;

For i := 1 to 4 do

t := t * i;

Writeln(t);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 100

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

s := s - 5

кц

вывод s

кон

Var s, k: integer;

Begin

s := 100;

for k := 1 to 9 do

s := s - 5;

write (s);

End.


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

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

Пас­каль

алг

нач

цел s, i

s := 3

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

s := s + 2*i

кц

вывод s

кон

Var s, i: integer;

Begin

s := 3;

For i := 2 to 5 do

s := s + 2*i;

Writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 2

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

s := s*s

кц

вывод s

кон

Var s, k: integer;

Begin

s := 2;

for k := 1 to 3 do

s := s*s;

write (s);

End.


16. За­да­ние 9 № 289. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.


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

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

Пас­каль

алг

нач

цел s, k

s:=0

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

s:=s+13

кц

вывод s

кон

Var u,i: integer;

Var s, k: integer;

Begin

s:=0;

for k:=3 to 10 do

s:=s+13;

write(s);

End.


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

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

Пас­каль

алг

нач

цел s, n

s := 5

нц для n от 2 до 4

s := s + (n-1)

кц

вывод s

кон

Var s, n: integer;

Begin

s := 5;

For n := 2 to 4 do

s := s + (n-1);

Writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 8

нц для k от 3 до 8

s := s + 8

кц

вывод s

кон

Var s,k: integer;

Begin

s := 8;

for k := 3 to 8 do

s := s + 8;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 11

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 7 to 11 do

s := s + 11;

writeln(s);

End.


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

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

Пас­каль

алг

нач

    цел s, k

    s:=0,

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

        s:=s+12

    кц

    вывод s

кон

Var s,k: integer;

Begin

    s:=0;

for k:=1 to 11 do

        s:=s+12;

    write(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 12

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 9 do

s := s + 12;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 10

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 12 do

s := s + 10;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 50

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

s := s - 4

кц

вывод s

кон

Var s,k: integer;

Begin

s := 50;

for k := 0 to 8 do

s := s - 4;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 6

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 3 to 7 do

s := s + 6;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 3 до 8

s := s + 7

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 3 to 8 do

s := s + 7;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел d,n

d := 6

d := d-2

нц для п от 1 до 4

d : = d + n

кц

вывод d

кон

Var d,n: integer;

Begin

d := 6;

d := d-2;

For n := 1 to 4 do

d : = d + n ;

Writeln(d);

End .


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

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

Пас­каль

алг

нач

цел s, k

s := 8,

нц для k от 14 до 18

s := s+6

кц

вывод s

кон

Var s,k: integer;

Begin

s := 8;

for k := 14 to 18 do

s := s+6;

writeln(s);

End.


29. За­да­ние 9 № 948. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 12

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 4 to 9 do

s := s + 12;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, n

s := 2

нц для n от 2 до 5

s := s + n*2

кц

вывод s

кон

Var s, n: integer;

Begin

s := 2;

For n := 2 to 5 do

s := s + n*2;

Writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 3 до 8

s := s + 6

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 3 to 8 do

s := s + 6;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел n, s

s := 1

нц для n от 2 до 5

s := s * 3

кц

вывод s

кон

var n, s: integer;

begin

s := 1;

for n := 2 to 5 do

s := s * 3;

write(s);

end.


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

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

Пас­каль

алг

нач

цел y, i

y := 5

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

y := y + 5*i

кц

вывод y

кон

Var y,i: integer;

Begin

y := 5;

For i := 1 to 3 do

y := y + 5*i;

Writeln(y);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 9

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 9 to 13 do

s := s + 9;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел 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.


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

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

Пас­каль

алг

нач

цел d,n,i

n :=3

d := n*3

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

d := d + i

кц

вывод d

кон

Var d,n,i: integer;

Begin

n := 3;

d := n*3;

For i := 1 to 3 do

d := d + i;

Writeln(d);

End.


38. За­да­ние 9 № 49. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.


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

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

Пас­каль

алг

нач

цел s, k

s := 1

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

s := s + 5

кц

вывод s

кон

Var s, k: integer;

Begin

s := 1;

for k := 0 to 9 do

s := s + 5;

write (s);

End.


40. За­да­ние 9 № 1143. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.


41. За­да­ние 9 № 1040. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.


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

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

Пас­каль

алг

нач

цел k, i

k := 2

нц для i от 0 до 2

k := i + 3*k

кц

вывод k

кон

Var k, i: integer;

Begin

k := 2;

For i := 0 to 2 do

k := i + 3*k;

Writeln(k);

End.

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

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

Пас­каль

алг

нач

цел y, i

y := 0

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

y := y + 4*i

кц

вывод y

кон

Var y,i: integer;

Begin

y := 0;

For i := 1 to 3 do

y := y + 4*i;

Writeln(y);

End.

44. За­да­ние 9 № 590. За­пи­ши­те зна­че­ние пе­ре­мен­ной 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.

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

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

Пас­каль

алг

нач

цел s, n

s := 2

нц для n от 2 до 5

s := s*2 + n

кц

вывод s

кон

Var s, n: integer;

Begin

s := 2;

For n := 2 to 5 do

s := s*2 + n;

Writeln(s);

End.


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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s+10

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 12 do

s := s+10;

writeln(s);

End.


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

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

Пас­каль

алг

нач

цел n, s

s := 0

нц для n от 3 до 7

s := s + 2 * n

кц

вывод s

кон

var n, s: integer;

begin

s := 0;

for n := 3 to 7 do

s := s + 2 * n;

write(s);

end.

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

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

Пас­каль

алг

нач

цел s, k

s := 0

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

s := s + 10

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 6 to 12 do

s := s + 10;

writeln(s);

End.

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

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

Пас­каль

алг

нач

цел s, k

s := 0

нц для k от 14 до 18

s := s+7

кц

вывод s

кон

Var s,k: integer;

Begin

s := 0;

for k := 14 to 18 do

s := s+7;

writeln(s);

End.

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

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

Пас­каль

алг

нач

цел s, k

s := 3

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

s := s + 3

кц

вывод s

кон

Var s, k: integer;

Begin

s := 3;

for k := 0 to 9 do

s := s + 3;

write (s);

End.




Скачать

Рекомендуем курсы ПК и ППК для учителей

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

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