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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
