27. вместо точек в высказывании а вставьте нужное слово чтобы логическое выражение было ложным not a and (b or c) а -на языке html парный тег применяется для подчеркнутого шрифта в- жесткий диск, можно называть еще устройством оперативной памяти с- истина

👇

Увидеть ответ

Ответ:

zhimagulova

23.07.2022

B = ЛОЖЬ, С = ИСТИНА

следовательно (B OR C) = ИСТИНА

Чтобы NOT A AND (B OR C) было бы равно ЛОЖЬ, нужно чтобы:

NOT A = ЛОЖЬ или А=ИСТИНА

тогда А = На языке HTML парный тег <u></u> применяется для задания подчеркнутого шрифта

4,5(55 оценок)

Открыть все ответы

Ответ:

MrDackes

23.07.2022

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

4,8(69 оценок)

Ответ:

vladkabanets

23.07.2022

Lazarus — открытая среда разработки программного обеспечения на языке Object Pascal для компилятора Free Pascal. Основная цель — предоставление кроссплатформенных и свободных средств разработки в Delphi-подобном окружении (по аналогии с Harbour для Clipper).

Позволяет переносить Delphi-программы с графическим интерфейсом в различные операционные системы: Linux, FreeBSD, Mac OS X, Microsoft Windows, Android[1].

В отличие от MSE — фокус на преобразование проектов Delphi. Библиотека визуальных компонентов — близкая к VCL Lazarus Component Library (LCL), практически полностью поддерживает виджеты Win32, GTK1, GTK2, Carbon[en], Qt, fpGUI, Cocoa, частично — виджеты WinCE[2]. Реализован основной набор элементов управления, редактор форм и инспектор объектов максимально приближены к Delphi; однако полной совместимости с Delphi нет. Интерфейс отладки реализован через GDB. Редактор — с системой подсказок, гипертекстовой навигацией по исходным текстам, автозавершением, автоформатированием (на механизмах Jedi Code Format), поддержкой рефакторинга. Интерфейс и редактор полностью юникодные (UTF-8).

Для компиляции поддерживаются два стиля ассемблера: Intel и AT&T. Также со стороны компилятора поддерживаются различные паскаль-стили: Object Pascal, Turbo Pascal, Mac Pascal, Delphi. Реализован собственный формат управления пакетами. Обеспечивается автосборка среды (под новую библиотеку виджетов). Поддерживаемые для компиляции операционные системы: Linux, Microsoft Windows (Win32, Win64), Mac OS X, FreeBSD, WinCE, OS/2.

Распространяется на условиях GNU General Public License, а значительная часть библиотек, в том числе LCL — на условиях модифицированной GNU Lesser General Public License. Альтернативная сборки среды — CodeTyphon, включает ряд дополнительных пакетов и компонентов, в частности, OpenGL-движок GLScene.

Среди программ, написанных с использованием Lazarus — двухпанельные файловые менеджеры Total Commander и Double Commander, аудиоредактор easyMP3Gain, аналог GNOME для Windows Greengnome, архиватор PeaZip, панель управления дистрибутива Ubuntu, САПР ZCad.

Объяснение:

4,6(6 оценок)

Это интересно:

Образование

06.01.2021

Клюква стоит 250 рублей за кг, а малина 200....

Образование

16.03.2023

Решить систему уравнений x2 + y2 + xy = 3...

Образование

05.08.2020

Решить систему уравнений x2 + xy +y2 = 13...