Склавиатуры вводится целое трёхзначное число. написать программу нахождения произведения 2-ой и 3-ей цифр числа. ​

1. Укажіть всі цілі від’ємні числа, що більші за -4,7 .

А) -3,-2,-1; В) -5, -4,-3, -2,-1;

Б) -4,-3,-2,-1,0; Г) -4,-3,-2,-1.

2. Сума двох чисел 25 і одне з них у 5 разів менше за інше. Яка із систем відповідає умові

задачі, якщо менше число позначили через х, а більше – через у?

А) В)

Б) Г)

3.При якому значенні т значення виразу 4-2т дорівнює 7?

А) -1,5; Б) -10; В) 1,5; Г) -5,5.

4. Розв’яжіть рівняння х2 +9х=0

А) 0; Б) -9; В) -9; 0; Г) 0; 9.

5.При якому значенні змінної х дріб не має змісту?

А) 2; Б) -2,4; В) -4; Г) -2.

6. Серед наведених систем укажіть таку, що не має розв’язків

А В)

Б) Г)

7. Чому дорівнює сума та добуток коренів квадратного рівняння х2- 8х +15 = 0;

8.Складіть квадратне рівняння, корені якого дорівнюють 2 - та 2 + .

9.Розв’яжіть систему рівнянь:

10. Розвяжіть рівняння: -у4 -5у2 +36 =0

ІІ рівень

ІІІ рівень

Объяснение:

Const
  n = 10;

var
  a: array[0..10] of integer;
  i, s: integer;

begin

//Заполнение массива сл. числами

  for i := 1 to n do
  begin
    a[i] := random(201) - 100;
    write(a[i]:4);
  end;
  writeln;

//1) Все элементы не превышающие число 100

  writeln('Не больше 100 ');
  for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
  writeln;

// 2) Все четные элементы

  writeln('Кратные двум ');
  for i := 1 to n do
    if a[i] mod 2 = 0 then  
      write( a[i]:4);
  writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
  for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then  
      write(a[i]:4);
  writeln;

// 4) Третий, шестой и т.д элементы.

  i := 3;
  writeln(' номера 3, 6, 9 и  т.д.');
  while i < n do
  begin
    write(a[i]:4);
    i := i + 3;
  end;
end.