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.

Answer 2

Конечно! Вот решение задач на языке PascalABC:

1. Чтобы возвести четные числа в квадрат, а нечетные в куб, можно использовать следующий код:

pascalCopy code
var
  a, b, c, d: integer;

begin
  // Вводим 4 числа
  writeln('Введите 4 числа:');
  readln(a, b, c, d);
  
  // Возводим четные в квадрат, а нечетные в куб
  if a mod 2 = 0 then
    a := a * a
  else
    a := a * a * a;
  
  if b mod 2 = 0 then
    b := b * b
  else
    b := b * b * b;
  
  if c mod 2 = 0 then
    c := c * c
  else
    c := c * c * c;
  
  if d mod 2 = 0 then
    d := d * d
  else
    d := d * d * d;
  
  // Выводим результат
  writeln('Результат:');
  writeln(a, ' ', b, ' ', c, ' ', d);
end.

2. Чтобы проверить, можно ли построить треугольник из трех чисел, нужно использовать неравенство треугольника. Вот соответствующий код:

pascalCopy code
var
  a, b, c: integer;
  isTriangle: boolean;

begin
  // Вводим 3 числа
  writeln('Введите 3 числа:');
  readln(a, b, c);
  
  // Проверяем неравенство треугольника
  if (a + b > c) and (a + c > b) and (b + c > a) then
    isTriangle := true
  else
    isTriangle := false;
  
  // Выводим результат
  if isTriangle then
    writeln('Можно построить треугольник')
  else
    writeln('Нельзя построить треугольник');
end.

Это две отдельные программы для решения ваших задач на языке PascalABC. Вы можете их использовать по отдельности или объединить в одну программу, если это необходимо.