1.дан массив, найти первое трехзначное число в нем. 2. дан массив, найти последнее число принадлежащее интервалу от -10 до 20 и кратное 3. 3. дано натуральное число. определить четная ли его первая цифра. 4. даны три натуральных числа а, в, с. найти нод(а, в)+ нод(в, с)

Const   n = 10; var   x: array[1..n] of integer;   i: integer;   flag: boolean; begin   randomize;   write('элементы массива: ');   for i : = 1 to n do   begin       x[i] : = random(10000);       write(x[i]: 5)   end;   i : = 1; flag : = false;   while (i < = n) and (not flag) do   begin       flag : = (x[i] > = 99) and (x[i] < = 1000);       if (not flag) then i : = i + 1   end;   writeln;   if flag then writeln('найден элемент: ', x[i])   else writeln('искомого числа нет') end. тестовое решение: элементы массива:   4136 4921  244 1489 1714 5731 4187 7990 1974  113 найден элемент: 244 const   n = 13; var   x: array[1..n] of integer;   i: integer;   flag: boolean; begin   randomize;   write('элементы массива: ');   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 4)   end;   i : = n;   flag : = false;   while (i > 0) and (not flag) do   begin       flag : = (x[i] > = -10) and (x[i] < = 20) and (x[i] mod 3 = 0);       if (not flag) then i : = i - 1   end;   writeln;   if flag then writeln('найден элемент: ', x[i])   else writeln('искомого числа нет') end. тестовое решение: элементы массива:     21 -45 -12    9 -36  42 -49 -48  37  48 -43  26 -34 найден элемент: 9 var   n: longint;   s: string;   k, er: integer; begin   write('введите натуральное число-> '); readln(n);   str(n, s);   val(s[1], k, er);   if (k mod 2 = 0) then writeln('первая цифра числа четная')   else writeln('первая цифра числа нечетная') end. тестовое решение: введите натуральное число-> 36434523 первая цифра числа нечетная function nod(a, b: integer): integer; begin   while a < > b do       if a > b then a : = a - b       else b : = b - a;   nod : = a end; var   a, b, c: integer; begin   write('введите через пробел три целых числа: '); readln(a, b, c);   writeln('нод(a,b)+нод(b,c)=', nod(a, b) + nod(b, c)) end. тестовое решение: введите через пробел три целых числа: 2048 512 4262 нод(a,b)+нод(b,c)=514

Чтобы заработал этот код надо добавить первой строкой: function g(n: integer): integer; forward; так как в функции f присутствует вызов функции g, которая описана далее в программе. function g(n: integer): integer; forward; function f(n: integer): integer; begin   if n > 2 then       f : = f(n - 1) + g(n - 2)   else       f : = 1; end; function g(n: integer): integer; begin   if n > 2 then       g : = g(n - 1) + f(n - 2)   else       g : = 1; end; begin   writeln(f(7)); end. ответ: 13

Авторское право — в объективном смысле институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, или искусства, то есть объективных результатов творческой деятельности людей в этих областях. скачивание информации из интернета - иногда может быть опасным т.к. на некоторые файлы/информацию распространяется авторское право. тем самым можно навредить себе если информация будет использоваться в публичных целях.