Программирование в ОГЭ ( Pascal)

Задания 8, 9, 10

Задание 1

а := 5 b := 4 b := 100 - a*b a := b/16*a В от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­ной a.

Задание 2

a := 10 b := 5 b := 100 + a/b a := b/6*a В от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­ной a.

Задание 3

a := 14 b := 4 a := a / 2 - b b := (a * b ) / 2 b := a + b В ответе укажите одно целое число − значение переменной b.

Задание 4

var s,k: integer; begin s := 3; for k := 0 to 9 do s := s + 3 ; writeln(s); end. Определите, что будет на­пе­ча­та­но в ре­зуль­та­те работы программы.

Задание 5

var s,k: integer; begin s := 0; for k := 6 to 12 do s := s + 10; writeln(s); end. Запишите зна­че­ние переменной s

Задание 6

var s,k: integer; begin s := 0; for k := 3 to 7 do s := s + 6; writeln(s); end. Запишите зна­че­ние переменной s

Задание 7

Var k, m, day: integer; Dat: array[1..7] of integer; Begin Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 8; Dat[5] := 6; Dat[6] := 7; Dat[7] := 6; day := 1; m := Dat[1]; for k := 2 to 7 do if Dat[k] < m then begin day := k; m := Dat[k]; end; writeln(day); End. Что выведет программа?

Задание 8

Var k, m: integer; Dat: array[1..11] of integer; Begin Dat[1] := 20; Dat[2] := 27; Dat[3] := 19; Dat[4] := 28; 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] < 25 then begin m := Dat[k]; end; writeln(m); End. Что выведет программа?

Задание 9

Var k, m: integer; App: array[1..12] of integer; Begin App[1]:=100; App[2]:=128; App[3]:=80; App[4]:=99; App[5]:=120; App[6]:=69; App[7]:=55; App[8]:=115; App[9]:=84; App[10]:=111; App[11]:=59;App[12]:=100; m := 0; for k := 1 to 12 do if App[k] < 80 then begin m := m + 1; end; m := m + 20; writeln(m); End. Что выведет программа?