1)
var a,b,c:real;
begin
write('Введите три стороны треугольника: ');
readln(a,b,c);
if((a < b+c) and (b < a+c) and (c < a+b)) then write('Периметр треугольника: ',(a+b+c):9:3)
else write('Треугольник с данным сторонами не существует');
end.
2)
var a,b:real;
begin
write('Введите два числа: ');
readln(a,b);
writeln('Сумма данных чисел: ',(a+b):9:3);
write('Произведение данных чисел: ',(a*b):9:3);
end.
var mas:array[1..5] of integer; i:integer;
begin
for i:=1 to 5 do readln(mas[i]);
mas[5]:=mas[2];
writeln(mas[1],mas[2],mas[3],mas[4],mas[5]);
readln;
end.
A) на первом листочке
((X v Y) & !Z) v !Z
k) на втором листочке
((X v Y) & X) & X & !Z
след задание на втором листке
все тоже самое только результат инвертирован
!( ((X v Y) & X) & X & !Z )
Несколько есьи отключить интернет)