Question

на языке паскаль составить программу нахождения кубов чисел от 1 до 25 используя арифметическую операцию sqr (x)-x2 (во второй степени)

Answer 1

var

a:integer;

begin

read(a);

a:=sqr(a)*a;

write(a);

end.

 

 

 

 

 

 

 

 

 

 

 

 

Answer 2

Вот пример программы на языке Pascal, которая находит кубы чисел от 1 до 25, используя арифметическую операцию `sqr(x)` для возведения числа во вторую степень:

program Cubes;
var
  i: integer;
begin
  for i := 1 to 25 do
  begin
    writeln('Куб числа ', i, ' равен ', sqr(i));
  end;
end.

В этой программе используется цикл `for`, который перебирает числа от 1 до 25. Внутри цикла мы используем функцию `sqr(x)`, которая возводит число `x` во вторую степень. Результат выводится на экран с помощью процедуры `writeln