Определи, существует ли такая таблица истинности. A B AvB
0 0 0
0 1 1
1 0 1
1 1 1
не существует
существует

Pascal:

1.

var a,b:Integer;

   x:Double;

begin

 writeln('Введите a, b: ');

 readln(a,b);

 x:=a+b;

 writeln(a,'+',b,'=',x);

 x:=a*b;

 writeln(a,'*',b,'=',x);

end.

2.

var a,b:Integer;

begin

 writeln('Введите оценки за две КР: ');

 readln(a,b);

if (a+b)>= 8 then writeln('Молодец!')

else writeln('Подтянись!')

end.

Python:

1.

a, b = int(input('Введите a')), int(input('Введите b'))

x = a+b

print(str(a) + '+' + str(b) + '=' + str(x))

x = a*b

print(str(a) + '*' + str(b) + '=' + str(x))

2.

a, b = int(input('Введите первую оценку')), int(input('Введите вторую оценку'))

if a+b >= 8:

print('молодец!')

else:

print('подтянись!')

Program Bid;

Uses crt;

var a,b,max:integer;

begin

   write(' Введите целое число a=');

   readln(a);

   write(' Введите целое число b=');

   readln(b);

   if a>=b then max:=a

   else max:=b;

   writeln('Max=',max);

end.

Program Text;

var x:integer;

begin

   write('Введите цифру 1 или любую :');

   readln(x);

   if x=1 then write(' В а с я')

   else write(' П е т я');

end.

Program Text;

var x:integer;

begin

   write('Введите цифру 1, 2 или любую :');

   readln(x);

   if x=1 then write(' В а с я')

   else if x=2 then write(' П е т я')

   else write('ERROR');

end.

Program MaxFrom3;

begin

  writeln('Введите 3 числа: ');

   var (a, b, c) := ReadInteger3;

   write('Наибольшее число: ', Max(a,b,c));

end.