Question

Составить простую программу в Паскаль 1.Дано число, если оно четное то возвести в квадрат, если нет то возвести в куб. 2. Вводится 4 числа, проверить равны ли они если да то суммировать их, если нет то ничего не выводить.

Answer 1

1.if (a mod 2)=o then write(a*a)
else write(a*a*a);

Answer 2

Вот решение!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 3

Да, конечно! Вот пример простой программы на языке Паскаль, которая выполняет задачи, описанные вами:

program SimpleProgram;

var
  number, result: integer; // для первой задачи
  num1, num2, num3, num4, sum: integer; // для второй задачи

begin
  // Задача 1: Возвести число в квадрат, если оно четное, иначе возвести в куб
  write('Введите число: ');
  readln(number);

if number mod 2 = 0 then
    result := number * number
  else
    result := number * number * number;

writeln('Результат: ', result);

// Задача 2: Проверить равенство четырех чисел и, если да, то найти их сумму
  write('Введите четыре числа через пробел: ');
  readln(num1, num2, num3, num4);

if (num1 = num2) and (num2 = num3) and (num3 = num4) then
  begin
    sum := num1 + num2 + num3 + num4;
    writeln('Сумма четырех чисел: ', sum);
  end
  else
    writeln('Числа не равны. Ничего не выводим.');

readln; // Чтобы консольное окно не закрывалось сразу после выполнения программы
end.

Просто скопируйте этот код в среду разработки Pascal (например, Lazarus) и выполните программу.