К стандартным простым типам данных относятся все перечисленное:
цел (integer)
, вещ (real)
, сим (char)
, лит (string)
, лог (boolean)
 
цел
, таб(array)
, сим
, лит
, лог
 
цел
, вещ
, запись(record)
, сим
, лит
 
В списке данных: "стол", "функция", "вектор", "матрица", "ячейка 100", "функция у = 2х + 3", "переменная" перечислено конкретных (не абстрактных) типов данных:
В списке данныхспециальность = (учитель, врач, рабочий), оклад = (5000, 3000, 2000, 1000), сотрудник = (специальность, оклад) приведено перечисляемых типов:
При решении задачи правильно:
При решении задачи правильно:
Фрагмент вида
k := 1; s := x[1]; for i := 1 to n do if (s < х[i]) then begin s := х[i]; k := i end; write(k); выводит значение переменной
k
, равное:
x[1]
, x[2]
, …, x[n]
 
x[1], x[2], …, x[n]
, меньших, чем x[1]
 
x[1], x[2], …, x[n]
 
Фрагмент вида
s := 0; i := 1; while (i < 1000) do begin s := s + x[i]; i := i + 2 end находит сумму чисел ряда:
x[1], x[2], x[3], …, x[999]
 
x[1], x[3], x[5], …, x[999]
 
x[2], x[4], x[6],…, x[9999]
 
Фрагмент вида
p := 1; for i := 1 to int(n/2) do p := p*x[i]; находит произведение:
x[1], x[2], …, x[n]
 
x[1], x[2], …, x[n]
 
x[1], x[2], …, x[n]
 
Фрагмент вида
i := 1; j := 1; s := 0; while ((i <= n) and (x[i,j] > 0)) do begin j := 1; while ((j <= m) and (x[i,j] > 0)) do begin s := s + x[i,j]; j := j + 1; end; i := i + 1; end; для заданного массива
x[1:n, 1:m]
чисел находит суммуs
:
Для
a[i] = i, i = 1, 2, 3
фрагмент вида:j := 1; i := 3; while (i > 1) do begin if (а[i] > а[j]) then j := i; i := i – 1; end; write(i,j); выведет на экран значения
i
иj
в указанной последовательности:
Дляa[i] = i, i = 1
фрагмент программы видаj := 2; i := 1; while (i > 0) do begin if (а[i] < а[j]) then j := i; i := i – 1; end; write(i + j); выведет на экран значение:
Выполнение команды вида:
a := int(–5.19) + abs(–3)*(7 mod 3) – max(12 mod 5, 32 div 3)*sqrt(0.01) определит значение переменной
а
, равное:
В результате выполнения команды вида
a :=int(2.6)*(6 div 4) + (1 mod 3)*int(4/3) – 1/2.5/sqrt(0.16) значение переменной
а
будет равно:
Последовательное выполнение двух команд вида
a := abs(–5) + int(pi)*(11 mod 1); a := max(a, а div 3)-int(a/2)-int(sqrt(a+4)) определит значение переменной а, равное: