Составить программу на а паскаль для вычисление закона джоуля ленца q=i2(степень)*r*t если q=1296дж i=9a t=2c

1. True (Истина)

2. False (Ложь)

3. True (Истина)

4. True (Истина)

Объяснение:

1. A или B и C - так как у нас A = истина, следовательно данное логическое выражение всегда будет возвращать истину

2. B или НЕ C - B у нас Ложь, C истина, соответственно под инверсией C получает значение Ложь. Следовательно выражение всегда будет возвращать Ложь

3. B или (C и A) - Так как C и A хранят в себе истину и связаны с B с логического оператора "ИЛИ", выражение будет возвращать истину.

4. НЕ (A и B) или (B >= C или НЕ А) - В связи с тем, что в A и B хранятся истина и ложь соответственно, значение логического выражения A и B будет ложью, а инверсия ложи = истине. Следовательно уже НЕ (A и B) выдает истину и вторая часть выражения после после или рассматриваться не будет

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 pro,i,k:uint64;
begin
 randomize;
 pro:=1;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(22,23); //Серьёно?
   write(ar[i]:4); 
  pro:=pro*ar[i];
  end;
 writeln;
 writeln('Pro=',pro);
 write('Enter value:');
 readln(k);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]+k;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  23  23  22  22  22  22  23  23  23  22  23  22  22  23  23
Pro=10868183115618730368
Enter value:3
Final array:
    26    26    25    25    25    25    26    26    26    25    26    25    25    26    26