1) напишите функцию вычисляющую количество трехзначных чисел делящихся на 13 и не оканчивающихся на 3 2)для некоторого массива из 30 элементов, проверить, есть-ли в массиве элемент, заданному значению с клавиатуры
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.
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.