ОГЭ_задание 9 и 10

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

var s,k: integer;

begin

s := 0;

for k := 3 to 7 do

s := s + 6;

writeln(s);

end.

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

var s,k: integer;

begin

s := 50;

for k := 0 to 8 do

s := s − 4;

writeln(s);

end.

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

var s,k: integer;

begin

s := 2;

for k := 1 to 3 do

s := s * s;

writeln(s);

end.

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

var s,k: integer;

begin

s := 1;

for k := 3 downto 0 do

s := s * 3;

writeln(s);

end.

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

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] > m then

begin

m := Dat[k];

end;

writeln(m);

End.

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

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] := 8;

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

m := 10;

n := 0;

for k := 1 to 10 do

if Dat[k] < m then

begin

m := Dat[k];

n := k;

end;

writeln(n);

End.

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

Var k, m, term: integer;

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

Begin

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

Dat[3] := 6; Dat[4] := 8;

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

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

m := Dat[1];

term := 1;

for k := 2 to 8 do

if Dat[k] > m then

begin

m := Dat[k];

term := k;

end;

writeln(term);

End.