Var a, b, c: integer;
begin
read(a, b, c);
if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0)
then write('Есть')
else write('Нет');
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
Var
a,b,c:integer;
begin
write('Введите a,b,c ');
readln(a,b,c);
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3);
end.
1) a*(a+b+c) = aa+ab+ac = a+ab+ac = a(1 + b + c) = a * 1 = a
2) a*b + ¬b + ¬a*b = b(a + ¬a) + ¬b = b * 1 + ¬b = b + ¬b =1
3) (¬a + b) * ¬c * (c + a * ¬b) = (¬a + b) * (¬c*c + a¬b¬c) =
(¬a + b) * a¬b¬c = ¬aa¬b¬c + ba¬b¬c = 0 + 0 = 0
4) (a+b)*(¬a+b)*(¬a + ¬b) = (¬aa+ab+¬ab+b)*(¬a + ¬b) =
(ab + ¬ab + b)*(¬a + ¬b) = b(a + ¬a + 1)*(¬a + ¬b) = b*(¬a + ¬b) =
¬ab + ¬bb = ¬ab