Паскаль. Цикл for

Задачи по теме. Нажми дальше.
             
                                                              
 Цикл for

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

Пас­каль

Var s,k: integer; Begin     s:=0; for k:=1 to 11 do         s:=s+12;     write(s); End.

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

Пас­каль

var s, k:integer; begin s:= 100; for k:= 0 to 10 do s:= s - 5; writeln (s); end.

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

Пас­каль

Var s,k: integer; Begin s := 0; for k := 4 to 9 do s := s + 12; writeln(s); End.

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

Пас­каль

Var u,i: integer; Var s, k: integer; Begin s:=0; for k:=3 to 10 do s:=s+13; write(s); End.

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

Пас­каль

Var u,i: integer; Begin u := 30; For i := 1 to 6 do u := u – i; Writeln(u); End.

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

Пас­каль

Var t,i: integer; Begin t := 1; For i := 1 to 4 do t := t * i; Writeln(t); End.

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

Пас­каль

Var d,n,i: integer; Begin n := 3; d := n*3; For i := 1 to 3 do d := d + i; Writeln(d); End.

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

Пас­каль

var n, s: integer; begin s := 0; for n := 3 to 7 do s := s + 2 * n; write(s); end.

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

Пас­каль

var n, s: integer; begin s := 1; for n := 2 to 5 do s := s * 3; write(s); end.

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

Пас­каль

Var f,n: integer; Begin f := 4; f := f*3; For n := 1 to 4 do f := f + n; Writeln(f); End.

Вопросы: Образовательный сайт  Дмитрия Гущина "Решу ОГЭ"
Тест подготовил: учитель ИКТ Чубчик В.Ю.