Question

Вывести квадраты первых десяти натуральных чисел. Без функции возведения в квадрат.Паскаль Результат 1 4 9 16 25 36 49 64 81 100

Answer 1

var

 i:integer;

begin

 for i:=1 to 10 do

   write(i*i,' ');

end.

Answer 2

Вывести квадраты первых десяти натуральных чисел без использования функции возведения в квадрат можно с помощью цикла. В языке программирования Pascal код может выглядеть следующим образом:

program SquareNumbers;

var
  i, square: integer;

begin
  for i := 1 to 10 do
  begin
    square := i * i;
    writeln(square);
  end;
end.

В этом коде используется переменная `i`, которая принимает значения от 1 до 10 в цикле `for`. Затем значение переменной `i` умножается само на себя, получая квадрат числа, и результат присваивается переменной `square`. Затем значение `square` выводится на экран с помощью процедуры `writeln`.

При выполнении этого кода вы увидите вывод:

1
4
9
16
25
36
49
64
81
100

Таким образом, квадраты первых десяти натуральных чисел будут выведены в последовательности, указанной в вопросе.