Пусть a,b,c - логические величины, которые имеют следующие значения: а= истина, b=ложь, c=истина. определите - id204471220200212 от сhevapchichi0 12.02.2020 18:13

Question

Информатика: Пусть a,b,c - логические величины, которые имеют следующие значения: а= истина, b=ложь, c=истина. определите результаты вычисления следующих логических выражений: а) а и b б) a и b или с в)(a или b) и (c и b) г)a или b д)a или b и с е)не (a или b) и (c или b) ж)не а или b и)не а или b и c к)не(а и b и с)

сhevapchichi0 · Accepted Answer

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a: array of integer;
i, n, m: integer;
function simple(x:integer): boolean;
var
i: integer;
begin
Simple := false;
if x < 2 then exit;
if x mod 2 = 0 then exit;
i := 3;
while i <= sqrt(x) do
begin
    if x mod i = 0 then exit;
    i +=2;
end;
Simple := true;
end;

begin
write('Количество элементов массива :');readln(m);
SetLength(a, m);
while n <= m - 1 do
begin
    if simple(i) then begin
      a[n] := i;
      n +=1;
    end;
    i +=1;
end;
a.println;
end.

Тестовое решение:
Количество элементов массива :25
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

MOGZ ответил