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.

Объяснение: