Question

Составить программу на Паскаль: Даны два неравных числа. Меньшее из этих чисел возвести в куб, а большее уменьшить на 35.

Answer 1

program abc;

var

a,b : integer;

begin

writeln('Введите числа а и б');

readln(a,b);

if a >b then

begin

writeln(b*b*b);

writeln(a+35);

end;

if b > a then

 begin

 writeln(a*a*a);

 writeln(b+35);

 end;

end.

Answer 2

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

pascalCopy code
program CubeAndSubtract;

var
  num1, num2, smaller, larger: real;

begin
  writeln('Введите два числа:');
  readln(num1, num2);

  if num1 < num2 then
  begin
    smaller := num1;
    larger := num2;
  end
  else
  begin
    smaller := num2;
    larger := num1;
  end;

  writeln('Меньшее число в кубе: ', smaller * smaller * smaller);
  writeln('Большее число - 35: ', larger - 35);

  readln;
end.

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