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

сделать флаг Дании в Паскале

👇
Открыть все ответы
Ответ:
Vadya91102
Vadya91102
31.07.2022
1) Логическое выражение (A v С) & В соответствует данному фрагменту таблицы истинности;
2) Логическое выражение (A v В) & (С → А) не соответствует данному фрагменту таблицы истинности, т. к. уже на первом наборе значение рассматриваемого логического выражения не совпадает со значением F. Проведение дальнейших вычислений не имеет смысла;
3) Логическое выражение (А & В v С) & (В → А & С) не соответствует данному фрагменту таблицы истинности;
4) Логическое выражение (А → В) v (С v А → В) соответствует данному фрагменту таблицы истинности.
4,7(30 оценок)
Ответ:
нюша305
нюша305
31.07.2022

1) var A: array [1..2] of real;

          B: array [1..20] of real;

          i:integer;

          c:boolean;

 begin

  c:=false;

  readln(a[1],a[2]);

  for i:=1 to 20 do begin

                           readln(b[i]);

                           if (b[i]=a[1]) then begin writeln('A[1]=B[',i,']=',b[i]);c:=true; end;

                           if (b[i]=a[2]) then begin writeln('A[2]=B[',i,']=',b[i]);c:=true; end;

                           end;

  if c=false then writeln('Совпадений не найдено');

end.

2) var a:array[1..10] of real;

    npol,notr,i: integer;

   begin

    npol:=0;

    notr:=0;

    for i:=1 to 10 do begin

                             readln(a[i]);

                             if a[i]>0 then npol:=npol+1;

                             if a[i]<0 then notr:=notr+1;

                             end;

   writeln('Количество положительных значений: ',npol,', количество отрицательных значений: ',notr);

end.

                              

 

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