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