Question

СРОЧНО!
PascalABC
1. Дано 4 числа. Четное возвести в квадрат, нечетное - в куб.
2. Даны 3 числа. Вопрос: можно ли построить треугольник из них?

Answer 1

1)Var a,i:integer;

begin

 for i:=1 to 4 do

  begin  

   readln(a);

   if a mod 2 = 0 then  

     writeln(sqr(a))

       else writeln(a*sqr(a));

  end;

end.

2)Var a,b,c:integer;

begin

readln(a,b,c);

if (a < b+c) and  

   (b < a+c) and  

   (c < a+b) then

     writeln('Можно')

     else writeln('Нельзя')

end.