sinicin80
?>

Определите в массиве A номер первого элемента, равного X. Определите номер первого элемента, равного X, в первой половине массива A (массив имеет чётное число элементов Определите номер первого элемента, равного X, во второй половине массива A (массив имеет чётное число элементов). Определите номер последнего элемента, равного X, во второй половине массива A (массив имеет чётное число элементов). Определите, сколько есть элементов, равных X, в первой половине массива A (массив имеет чётное число элементов). Определите, сколько в массиве A пар соседних элементов, значения которых одинаковы и равны заданному X. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и отсортировать его по убыванию. Пример: Исходный массив: 4 5 -8 3 -7 -5 3 1 0 9 Результат: 9 5 4 3 3 1 0 -5 -7 -8 Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 30 11 41 32 13 14 25 76 97 58

Информатика

Ответы

Igor120
//4)
var
  x1, y1, x2, y2, x3, y3, x4, y4: integer;
  s, sc: real;

function linelength(x1, y1, x2, y2: integer): real;
begin
  linelength := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;

procedure ger(a, b, c: real);
var
  p: real;
begin
  p := (a + b + c) / 2;
  sc := sqrt(p * (p - a) * (p - b) * (p - c));
end;

begin
  write('1:');readln(x1, y1);
  write('2:');readln(x2, y2);
  write('3:');readln(x3, y3);
  write('4:');readln(x4, y4);
  ger(linelength(x1, y1, x2, y2), linelength(x2, y2, x3, y3), linelength(x1, y1, x3, y3));
  s := s + sc;
  ger(linelength(x1, y1, x4, y4), linelength(x4, y4, x3, y3), linelength(x1, y1, x3, y3));
  s := s + sc;
  writeln(s);
end.
//3)
var
  a, b, c: integer;

function sce(var a: integer): integer;
var
  sc, c: integer;
begin
  while a <> 0 do
  begin
    c := a mod 10;
    a := a div 10;
    sc := sc + c;
  end;
  sce := sc;
end;

begin
  read(a, b, c);
  if (sce(a) > sce(b)) and (sce(a) > sce(c)) then writeln(a) else
  if (sce(b) > sce(a)) and (sce(b) > sce(c)) then writeln(b) else
  if (sce(c) > sce(a)) and (sce(c) > sce(b)) then writeln(c) else
  if (sce(c) = sce(a)) and (sce(a) = sce(b)) then writeln('Равны');
end.
gymnazium
Аргументов пять, поэтому строк в таблицы истинности будет:
2^5 =32
   В 1/4  от них F=1, то есть в 32/4 =8 строках   F=1
В пяти строках:
F  G      F⇒G
1    1       1
1    1       1
0    0       1
0    0       1
0    0       1
Все остальные строки -  с различными значениями F и  G,
то есть есть строки , где ещё  шесть раз F=1, а  G =0
F   G    F⇒G
1    0      0
1    0      0
1    0      0
1    0      0
1    0      0
1    0      0
Именно в этих шести строках импликация F⇒G =0,
во всех других строках F=0, а 0⇒0 =1 и 0⇒1=1
Вывод:  6 - число значений  0 для  функции  F⇒G в таблице истинности.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Определите в массиве A номер первого элемента, равного X. Определите номер первого элемента, равного X, в первой половине массива A (массив имеет чётное число элементов Определите номер первого элемента, равного X, во второй половине массива A (массив имеет чётное число элементов). Определите номер последнего элемента, равного X, во второй половине массива A (массив имеет чётное число элементов). Определите, сколько есть элементов, равных X, в первой половине массива A (массив имеет чётное число элементов). Определите, сколько в массиве A пар соседних элементов, значения которых одинаковы и равны заданному X. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и отсортировать его по убыванию. Пример: Исходный массив: 4 5 -8 3 -7 -5 3 1 0 9 Результат: 9 5 4 3 3 1 0 -5 -7 -8 Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 30 11 41 32 13 14 25 76 97 58
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Konstantinovna1936
Малыхин Валерьевна621
Konstantinovich alekseevna993
nadezhda81
Anna_Kamil
boykoz9
tarasowamash4
julia3594265843
migor72
LYuBOV
dobrovolsky-tmz1
Stanislavovna1237
krisrespect2
krispel9
Платон Демцун