Программирование Pascal (обобщение)

Запишите значение переменной s, полученное в результате работы следующей программы: var s,k: integer; begin s := 0; for k := 5 to 9 do s := s + 8; writeln(s); end.

Запишите значение переменной s, полученное в результате работы следующей программы: var s,k: integer; begin s := 0; for k := 9 to 13 do s := s + 9; writeln(s); end.

Запишите значение переменной s, полученное в результате работы следующей программы: var s,k: integer; begin s := 0; for k := 6 to 9 do s := s + 12; 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 := 100; for k := 1 to 9 do s := s − 5; writeln(s); end.

Запишите значение переменной s, полученное в результате работы следующей программы: var s,k: integer; begin s := 8; for k := 3 to 8 do s := s + 8; 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.

Запишите значение переменной y, полученное в результате работы следующей программы: var y, i: integer; begin y := 5; for i := 1 to 3 do y := y + 5 * i; writeln(y); end.

Запишите значение переменной f, полученное в результате работы следующей программы: var f, n: integer; begin f := 4; f := f*3; for n := 1 to 4 do f := f + n; writeln(f); end.

Запишите значение переменной s, полученное в результате работы следующей программы: var s,n: integer; begin s := 5; for n := 2 to 4 do s := s + (n−1); writeln(s); end.

Запишите значение переменной y, полученное в результате работы следующей программы: var y, i: integer; begin y := 5; for i := 1 to 3 do y := y + 5 * i; writeln(y); end.

Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while s < 80 do begin s:=s+2*k; k:=k+4; end; write(s); end.

Запишите число, которое будет напечатано в результате выполнения следующей программы: var s, n: integer; begin s := 500; n := 200; while s div n >= 2 do begin s := s + 5; n := n + 5 end; writeln(s) end.

Запишите число, которое будет напечатано в результате выполнения следующей программы: var s, n: integer; begin s := 300; n := 100; while s - n >= 100 do begin s := s + 20; n := n + 30 end; writeln(s) end.

Запишите число, которое будет напечатано в результате выполнения следующей программы: var s, n: integer; begin s := 900; n := 30; while s > 2*n do begin s := s – 30; n := n + 20 end; writeln(s) end.

Запишите число, которое будет напечатано в результате выполнения следующей программы: var s, n: integer; begin s := 0; n := 1; while s < 100 do begin s := s + 20; n := n * 3; end; writeln(n) end.

Запишите число, которое будет напечатано в результате выполнения следующей программы: var s, n: integer; begin s := 300; n := 100; while s div n >= 2 do begin s := s + 5; n := n + 5 end; writeln(s) end.

Ниже приведена программа: var s, t: integer; begin readln(s); readln(t); if (s > 2) and (t < 5) then writeln('YES') else writeln('NO') end. Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (–2, 3); (2, 5); (0, 3); (5, –3); (5, 4); (11, 4); (8, –6); (1, 7); (9, 1). Сколько было запусков, при которых программа напечатала «NO»?

Ниже приведена программа: var s,k: integer; begin readln(s); readln(t); if (s < 1) and (t < 2) then writeln ('YES') else writeln ('NO') end. Было выведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t): (3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2). Сколько было запусков, при которых программа напечатала «YES»?

Ниже приведена программа: var s, t: integer; begin readln(s); readln(t); if (s < 7) or (t > 5) then writeln('YES') else writeln('NO') end. Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (9, 5); (11, 2); (4, 5); (7, –2); (4, 4); (7, 7); (1, –1); (3, 9); (2, 2). Сколько было запусков, при которых программа напечатала «YES»?

В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учёбы семестров (Dat[1] — оценка за первый семестр, Dat[2] — за второй и т. д.). Определите, что будет напечатано в результате выполнения следующей программы. 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.

В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 16; Dat[2] := 20; Dat[3] := 20; Dat[4] := 41; Dat[5] := 14; Dat[6] := 21; Dat[7] := 28; Dat[8] := 12; Dat[9] := 15; Dat[10] := 35; m := 0; for k := 1 to 10 do if Dat[k] < 25 then begin m := m + 1; end; writeln(m); End.

В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 56; Dat[2] := 70; Dat[3] := 20; Dat[4] := 41; Dat[5] := 14; Dat[6] := 22; Dat[7] := 30; Dat[8] := 12; Dat[9] := 65; Dat[10] := 35; m := 100; for k := 1 to 10 do if Dat[k] < m then begin m := Dat[k]; end; writeln(m); End.