М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
GoldFish1701
GoldFish1701
03.08.2022 01:49 •  Информатика

Дан массив из 10 чисел найти количество чисел делящихся на 2

👇
Ответ:
LinaLafe
LinaLafe
03.08.2022
4,6,8,10,12,14,16,18,20,22
4,8(17 оценок)
Ответ:
var
  a: array [1..10] of integer;
  i, s: integer;
begin
  for i := 1 to 10 do
  begin
    a[i] := random(10);
    write(a[i]:2);
  end;
  writeln();
  for i := 1 to 10 do
    if (a[i] mod 2 = 0) then
      inc(s);
  writeln(s);
end.
4,8(98 оценок)
Открыть все ответы
Ответ:
RazzyMatem
RazzyMatem
03.08.2022

{#1 Деление на числа меньше 7}

begin

var F: boolean;

var a: integer; read(a);

 for var x := 7 downto 1 do

 begin

   F := (a mod x = 0) ? true : false;

   if F <> true then break;

 end;

end.

{#2 Находится ли точка внутри окружности}

begin

 var F: boolean;

 var z: cardinal;

 var x,y: double; read(x,y,z);

  x := (x<1)? x*-1:x;

  y := (y<1)? y*-1:y;

  if (x<z) and (y<z) then  

 F := true;

end.

{#3 В трехзначном числе есть три одинаковые цифры}

begin

 var F: boolean;

 var n: integer; read(n);

 var s := n.ToString;

 if (s[1] = s[2])  

    or (s[2] = s[3])  

     or (s[1] = s[3]) then

 F := true;

end.

{#4 Точки лежат на одной прямой}

begin

 var F: boolean;

 var x1,y1,x2,y2,x3,y3: integer;

 read (x1,y1,x2,y2,x3,y3);

 if (x2 - x1)*(y3 - y1) - (x3 - x1)*(y2 - y1) = 0 then

 F := true;

end.

{#5 Х или трёхзначное чётное число или четырёхзначное нечётное}

begin

var F: boolean;

var x:integer; read(x);

var s:=x.ToString;

if ((length(s) = 3) and (x mod 2 = 0)) or ((length(s) = 4) and (x mod 2 <> 0)) then

F := true;

end.

4,8(39 оценок)
Ответ:
dildora140995p01blz
dildora140995p01blz
03.08.2022

ответ (перепроверьте на всякий случай скобки, вроде должно быть всё верно, но там довольно замороченно, лучше ещё раз перепроверить):

from math import atan,log

a = [0.5, -1, -2]

b = [1.5, 0.5, 0]

p = [-4, -4, -4]

while True:

 try:

   x = float(input('Введите x: '))

   break

 except ValueError:

   print('Вводите число!')

if abs(x) < 0.2:

 for i in range(3):

   print(f'Вариант {i+1}: {a[i]**2 * x**3 + (b[i]**4 + 1.7)**0.5}')

elif abs(x) == 0.2:

 for i in range(3):

   print(f'Вариант {i+1}: {atan(2**x - abs(p[i]))}')

else:

 for i in range(3):

   print(f'Вариант {i+1}: {(log(abs(a[i])) + 4.3)**(1/3) + x}')

"Попроще" - без циклов, проверки ввода и массивов:

from math import atan,log

a1 = 0.5

a2 = -1

a3 = -2

b1 = 1.5

b2 = 0.5

b3 = 0

p1 = -4

p2 = -4

p3 = -4

x = float(input('Введите x: '))

if abs(x) < 0.2:

 y = a1**2 * x**3 + (b1**4 + 1.7)**0.5

 print('Вариант 1: ', y)

 y = a2**2 * x**3 + (b2**4 + 1.7)**0.5

 print('Вариант 2: ', y)

 y = a3**2 * x**3 + (b3**4 + 1.7)**0.5

 print('Вариант 3: ', y)

elif abs(x) == 0.2:

 y = atan(2**x - abs(p1))

 print('Вариант 1: ', y)

 y = atan(2**x - abs(p2))

 print('Вариант 2: ', y)

 y = atan(2**x - abs(p3))

 print('Вариант 3: ', y)

else:

 y = (log(abs(a1)) + 4.3)**(1/3) + x

 print('Вариант 1: ', y)

 y = (log(abs(a2)) + 4.3)**(1/3) + x

 print('Вариант 2: ', y)

 y = (log(abs(a3)) + 4.3)**(1/3) + x

 print('Вариант 3: ', y)

4,6(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ