Question

(Паскаль) Найти сумму между квадратом большего и кубом меньшего из двух чисел. (Составьте программу)

Answer 1

Ответ:

var a,b: real;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Сумма между квадратом большего и кубом',

' меньшего из чисел ',a,' и ',b,': ');

if (a<b) then writeln(b*b+a*a*a)

else  writeln(a*a+b*b*b);

end.

Answer 2

Вот пример программы на языке Паскаль, которая находит сумму между квадратом большего и кубом меньшего из двух чисел:

pascalCopy code
program SumOfSquaresAndCubes;
var
  num1, num2, squareOfGreater, cubeOfSmaller, sum: integer;
begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  if num1 > num2 then
  begin
    squareOfGreater := num1 * num1;
    cubeOfSmaller := num2 * num2 * num2;
  end
  else
  begin
    squareOfGreater := num2 * num2;
    cubeOfSmaller := num1 * num1 * num1;
  end;
  
  sum := squareOfGreater + cubeOfSmaller;
  
  writeln('Сумма между квадратом большего числа и кубом меньшего числа: ', sum);
end.

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