Question

Работа в PascalABC.NET. задача: В интервале 1-100 вывести такие пары чисел А и B, для которых верно равенство А^3 = В^2

Answer 1

var

i, j: integer;

begin

for i:= 1 to 99 do

for j:= i +1 to 100 do

if i*i*i = j*j then writeln(i,' ',j);

end.

Answer 2

Для решения данной задачи вам необходимо перебрать все возможные значения чисел A и B в интервале от 1 до 100 и проверить, выполняется ли условие A^3 = B^2 для каждой пары чисел. Если условие выполняется, вы должны вывести пару чисел А и B.

Воспользуемся языком PascalABC.NET для написания программы:

pascalCopy code
program FindPairs;

var
  A, B: Integer;

begin
  for A := 1 to 100 do
  begin
    for B := 1 to 100 do
    begin
      if A * A * A = B * B then
      begin
        writeln('A = ', A, ', B = ', B);
      end;
    end;
  end;
end.

Этот код будет перебирать все возможные значения чисел A и B в интервале от 1 до 100, проверять условие A^3 = B^2 и выводить на экран пары чисел А и B, для которых условие выполняется.