1) напишите функцию вычисляющую количество трехзначных чисел делящихся на 13 и не оканчивающихся на 3

2) для некоторого массива из 30 элементов, проверить, есть-ли в массиве элемент, заданному значению с клавиатуры

Pacal

function F () : integer;

var

k, i : integer;

begin

k : = 0;

for i : = 100 to 999 do

if (i mod 13 = 0) and (i mod 100 3) then

k : = k + 1;

Result : = k;

end;

begin

writeln (f ()) ;

end.

const

n = 30;

var

a : array [1 ... n] of integer;

i, b : integer;

r : boolean;

begin

readln (b) ;

i : = 1;

r : = false;

While (not r) and (i < = n) do

begin

if a[i] = b then

r : = true;

i : = i + 1;

end;

if r then

writeln ('Есть')

else

writeln ('Нет') ;

end.