Регистрация
Qwiq
12.08.2022 04:25
Информатика
Есть ответ 👍

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

132
353
Посмотреть ответы 2

Ответы на вопрос:

arinasuykova
arinasuykova
4,4(89 оценок)
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 (;   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.
Nadachansky
Nadachansky
4,7(24 оценок)

Наука и техника

Реклама и маркетинг

Дизайн интерьера, архитектура, строительство

Кинематограф, компьютерные игры, анимация

Популярно: Информатика