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

Задание 9.1. Запишите значение переменной s, полученное в результате работы следующей програм­ мы. Текст программы приведён на трёх языках программирования.  Алгоритмический язык Паскаль Begin алг нач цел s, k s := 0 нц для k от 3 до 7 s := s + 6 кц вывод s кон Задание 9.2. Запишите значение переменной s, полученное в результате работы следующей програм­ мы. Текст программы приведён на трёх языках программирования. Var s,k: integer; s := 0; for k := 3 to 7 do s := s + 6; writeln(s); End.  Алгоритмический язык Паскаль Begin алг нач цел s, k s := 50 нц для k от 0 до 8 s := s - 4 кц вывод s кон Задание 9.3. Определите, что будет напечатано в результате работы следующей программы. Текст про- граммы приведён на трёх языках программирования. Var s,k: integer; s := 50; for k := 0 to 8 do s := s - 4; writeln(s); End. Алгоритмический язык Паскаль Begin алг нач цел s, k s := 1 нц для k от 3 до 0 шаг −1 s := s*3 кц вывод s кон Задание 9.4 № 550. Запишите значение переменной y, полученное в результате работы следующей про- граммы. Текст программы приведён на трёх языках программирования. Var s, k: integer; s := 1; for k := 3 downto 0 do s := s*3; write (s); End. Алгоритмический язык Паскаль Var y,i: integer; y := 0; y := y + 4*i; алг нач цел y, i y := 0 нц для i от 1 до 3 y := y + 4*i кц вывод y кон Задание 9.5. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования. Begin For i := 1 to 3 do Writeln(y); End. Алгоритмический язык Бейсик Паскаль алг нач цел s, n s := 5 нц для n от 2 до 4 s := s + (n-1) кц вывод s кон Задание 9.6. Запишите значение переменной f, полученное в результате работы следующей программы. Var s, n: integer; s := 5; 4 do s := s + (n-1); Writeln(s); End. DNM n, s AS INTEGER s = 5 FOR n = 2 TO 4 s = s + (n-1) NEXT n PRINT s Begin For n := 2 to Алгоритмический язык Паскаль алг  нач  цел f,n  f := 4  f := f*3  нц для n от 1 до 4  f := f + n  кц  вывод f  кон Задание 10.1. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в гра- дусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напеча- тано в результате работы следующей программы. Var f,n: integer;  Begin  f := 4;  f := f*3;  For n := 1 to 4 do  f := f + n;   Writeln(f);  End. Алгоритмический язык Паскаль Алгоритмический язык алг  нач  целтаб Dat[1:10]  цел к, m  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[1:11] Dat[9] := 14  цел к, m Dat[10] := 15  Dat[1] := 20 m := 0  Dat[2] := 27 нц для к от 1 до 10 Dat[3] := 19 если Dat[к] > m то Dat[4] := 28 m : = Dat[к]  Dat[5] := 26 все  Dat[6] := 22 КЦ  Dat[7] := 24 вывод m  Dat[8] := 28 КОН Dat[9] := 26 Dat[10] := 21 Dat[11] := 27 m := 0 нц для к от 1 до если Dat[к] < 25 то m : = все КЦ вывод m КОН Dat[к] Паскаль 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: 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 if Dat[k] < 25 then begin m := Dat[k]; end; writeln(m); End. 11 do 11 Задание 10.2. В таблице Dat хра- нятся данные о количестве учени- ков в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Опре- делите, какое число будет напеча- тано в результате работы следую- щей программы.