Question

Составить программу на языке Pascal, которая выводит на экран квадраты первых пятнадцати целых нечётных положительных чисел.​

Answer 1

var

 i:integer;

begin

 i:=1;

 repeat

   writeln(i,': ',sqr(i));

   i:=i+2;

 until i>30;

end.

Answer 2

Конечно, вот программа на языке Pascal, которая выводит квадраты первых пятнадцати целых нечётных положительных чисел:

pascalCopy code
program SquaresOfOddNumbers;

var
  i, n: integer;

begin
  n := 1; // Начальное нечётное число
  for i := 1 to 15 do
  begin
    writeln('Квадрат числа ', n, ' равен ', n * n);
    n := n + 2; // Переходим к следующему нечётному числу
  end;
  readln;
end.

Эта программа начинает с числа 1 и выводит квадраты первых 15 нечётных положительных чисел, увеличивая число на 2 на каждой итерации цикла.