Question

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

Answer 1

Ответ:

var

 i,k:integer;

begin

   for i:= 1 to 30 do

     begin

     if ((i mod 2)>0) then

       writeln(sqr(i));

     end;

end.

Объяснение:

Answer 2

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

pascalCopy code
program SquaresOfOddNumbers;

var
  i, count: integer;

begin
  count := 0;
  
  writeln('Квадраты первых пятнадцати нечётных положительных чисел:');
  
  for i := 1 to 100 do // Мы начинаем с 1 и будем проверять первые 100 чисел, чтобы найти первые 15 нечётных
  begin
    if (i mod 2 <> 0) then // Проверка на нечётность
    begin
      writeln(i * i); // Вывод квадрата числа
      count := count + 1; // Увеличение счётчика нечётных чисел
      
      if count = 15 then // Когда найдено 15 нечётных чисел, завершаем программу
        break;
    end;
  end;
  
  readln;
end.

Эта программа использует цикл for, чтобы перебирать числа от 1 до 100, и выводит квадраты только нечётных чисел. Когда найдено 15 нечётных чисел, программа завершает выполнение.