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

1. Истинно или ложно при a := 2; b := 3; c := 4;

а. not (a > b)

б. (a < b) and (b < c)

в. not (a >= b) or (c = d)

г. (a < c) or (b < c) and (b < a)

д. (a < b) and (b > c)

2. Для каких значений x истинны условия (ответы записать в виде числового промежутка):

а. (x < 6) and (x < 10)

б. (x <= 6) and (x >= 10)

в. (x > 6) and (x < 10)

г. (x > 6) and (x >= 10)

д. (x < 6) or (x < 10)

е. (x <= 6) or (x >= 10)

ж. (x > 6) or (x < 10)

з. (x >= 6) or (x > 10)

HELP

👇
Ответ:
Lizochka2007u
Lizochka2007u
10.11.2021

1

a.истина

б.истина

в.истина

г.истина

д.ложь

4,4(36 оценок)
Открыть все ответы
Ответ:
werer1973
werer1973
10.11.2021
Const
    handsfree = false;
    nmax = 4;
    random_min = -50;
    random_max = 50;

var
    a: array[1..nmax] of integer;
    i, n, j: integer;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    n := nmax;
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();
    
    {подсчет элементов}
    k := 0;
    for i := 1 to n do
        if a[i] mod 2 = 0 then
            k := k + 1;
    writeln('quantity = ', k);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('sum = ', sum);
end.
4,5(95 оценок)
Ответ:
Shiro1303
Shiro1303
10.11.2021
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-28,25); a.Println;
  Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
  Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
  var imin:=a.IndexMin;
  Writeln('Номер минимального элемента- ',imin+1,
    ', его значение равно ',a[imin])
end.

Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28
4,4(33 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ