Question

Напишите программу в паскаль abc, которая позволяют записать логические выражения, которые имеют значение «Истина» когда: а) каждое из чисел A и B больше 100; б) только одно из чисел A и B четное; в) хотя бы одно из чисел A и B положительное.

Answer 1

Var a,b:real;
l,f,j:boolean;
begin
f:=false;
read (a,b);
if (a > 100) and (b > 100) then l:=true else l:=false;
if ((a mod 2)=0) then f:=true;
if ((b mod 2)=0) then f:=true;
if ((a mod 2)=0) and ((b mod 2)=0) then f:=false
if a > 0 or b > 0 then j:=true else j:=false;
writeln ("а) ",l);
writeln ("б) ",f);
writeln ("в) ",j);
end.

Answer 2

Конечно, вот программа на языке Pascal, которая позволяет вводить значения для переменных A и B, а затем вычисляет логические выражения для заданных условий:

pascalCopy code
program LogicalExpressions;

var
  A, B: Integer;

begin
  Write('Введите значение для A: ');
  Readln(A);

  Write('Введите значение для B: ');
  Readln(B);

  // a) Каждое из чисел A и B больше 100
  if (A > 100) and (B > 100) then
    WriteLn('a) Истина')
  else
    WriteLn('a) Ложь');

  // б) Только одно из чисел A и B четное
  if (Odd(A) and not Odd(B)) or (not Odd(A) and Odd(B)) then
    WriteLn('б) Истина')
  else
    WriteLn('б) Ложь');

  // в) Хотя бы одно из чисел A и B положительное
  if (A > 0) or (B > 0) then
    WriteLn('в) Истина')
  else
    WriteLn('в) Ложь');
end.

Эта программа позволяет вам вводить значения A и B, а затем выводит истину или ложь для каждого из указанных логических условий (a, б, в).