Question

Напишите в паскале программу,которая выводит на экран таблицу квадратов первых двадцати целых положительных четных чисел. Срочно!

Answer 1

Ответ:

program zz;

var

 i: integer;

begin

 for i := 1 to 20 do

   if i mod 2 = 0 then

     writeln(i, '*', i, ' - ', i * i);

 readln;

end.

Объяснение:

Answer 2

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

pascalCopy code
program SquareTable;

var
  i: integer;

begin
  writeln('Число   Квадрат');
  writeln('----------------');

  for i := 2 to 40 step 2 do
  begin
    writeln(i:4, '   ', i * i:5);
  end;

  readln;
end.

Эта программа начинает с 2 и увеличивает число на 2 на каждой итерации до тех пор, пока не будет выведено 20 четных чисел и квадраты каждого из них.