1) Дана рекурсивная функция: function f (n: integer) : integer; begin if n>100 then f:=n-10 else f:=f (f (n+11)) end; Вычислите f (98). 2) Что будет напечатано программой? s:=0; for i:=1 to 3 do for j:=1 to 3 do a[i, j]:=i*j; for i:=1 to 3 do for j:=1 to 3 do s:=s+a[i, j]; writeln (s); 3) Что будет напечатано программой? type stringa = array [1 ... 5] of char; var i: integer; t: stringa; procedure P (var s: stringa); begin i:=1; while s[i]

Question

Степан Иванов

Информатика

16 декабря, 22:47

1) Дана рекурсивная функция: function f (n: integer) : integer; begin if n>100 then f:=n-10 else f:=f (f (n+11)) end; Вычислите f (98). 2) Что будет напечатано программой? s:=0; for i:=1 to 3 do for j:=1 to 3 do a[i, j]:=i*j; for i:=1 to 3 do for j:=1 to 3 do s:=s+a[i, j]; writeln (s); 3) Что будет напечатано программой? type stringa = array [1 ... 5] of char; var i: integer; t: stringa; procedure P (var s: stringa); begin i:=1; while s[i]

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Анастасия Филимонова · Answer 1

1) 91

2) Двумерный массив заполняется числами, которые равны произведению номера строки и номера столбца. Потом находится сумма всех записанных в массив чисел и выводится ответ на экран.

Ответ: 36

3) Нельзя преобразовать тип string к array [1 ... 5] of char

4) в) Функция random из стандартного модуля crt формирует случайное число.