begin
var size := readinteger;
var arr := ArrRandomInteger(size, -100, 100);
arr.Println;
var quantity := 0;
for var i := 0 to arr.Length - 1 do
begin
if (arr[i] > 25) and (arr[i] < 99) and (arr[i] mod 2 <> 0) then
begin
inc(quantity);
end;
end;
write(quantity);
end.
Объяснение:
begin // Начало программы
var size := readinteger; // Переменная, хранящая размер массива, считывается с клавиатуры
var arr := ArrRandomInteger(size, -100, 100); // Объявление массива размером size + заполнение массива случайными значениями из диапазона [-100, 100].
arr.Println; // Вывод массива
var quantity := 0; // Переменная, хранящая количество элементов, равна 0
for var i := 0 to arr.Length - 1 do // Идём от нуля до размера массива - 1
begin // Начало цикла
if (arr[i] > 25) and (arr[i] < 99) and (arr[i] mod 2 <> 0) then // Если значение массива с индексом i > 25 И < 99 И нечетное, тогда
begin // Начало условного оператора
begin // Начало условного оператора
inc(quantity); // Увеличиваем значение переменной quantity на единицу
end; // Конец условного оператора
end; // Конец цикла
write(quantity); // Выводим ответ
end. // Конец программы
0
Объяснение:
Функция имеет два базовых случая. В первом случае если параметр функции - нечетное число, то возвращается ответ "No", во втором случае если параметр функции равен 2, то возвращается ответ "Yes". Для всех других значений параметра происходит его целочисленное уменьшение в два раза. Таким образом, в приведенном программном коде определяется, является ли число n степенью 2.
Так как первоначальное значение n=21, то сразу наступает условие для базового случая 21%2==1. Поэтому рекурсивные вызовы отсутствуют, следовательно, глубина рекурсии равна 0.

библиотека
материалов
МавлетбаеваС.Т. 20 апреля, 2014
Самостоятельная работа по программированию «Строковые функции и процедуры»
Вариант 1
Чему равно значение переменной n?
n:=length (‘Информация’);
Чему равно значение переменной S3?
S1 := ’На дворе трава, ’; S2:=‘на траве дрова’;
S:=CONCAT(S1,S2);
S3:=S1+S2;
Чему равно значение переменной n?
n:=pos(‘Планета ’ , ’Планета Детства’);
Чему равно значение переменной f?
St := ’Мыла Мила мишку мылом’;
F := copy(st,6,4);
Чему равно значение переменной S?
S:=’Однажды галок поп пугая, в кустах увидел попугая.’;
delete(S,9,17);
Чему равно значение переменной s?
S := ’Везёт Сенька с Санькой на санках.’;
INSERT(‘Соньку-‘,S,24);
Вариант 2
Чему равно значение переменной n?
n:=length (‘Программирование’);
Чему равно значение переменной S3?
S1 := ’Уронила Мила мыло, ’; S2:=‘мишку мылом не домыла.’;
S:=CONCAT(S1,S2);
S3:=S1+S2;
Чему равно значение переменной n?
n:=pos(‘Клара’ , ’ Карл и Клара’);
Чему равно значение переменной f?
St := ’У четырех черепашек четыре черепашонка’;
F := copy(st,11,9);
Чему равно значение переменной S?
S:=’На опушке в избушке живут старушки-болтушки.’;
delete(S,26,9);
Чему равно значение переменной s?
S := ’Сшила Сашке шапку ’;
INSERT(‘Саша- ‘,S,7);