Question

Дано множество натуральных чисел от 1 до 20,вывести множество квадратов элементов  Нужно составить программу по языку Паскаль. Помогите  даю 53 балла 

Answer 1

Program one;
var
i:integer;
begin
for i:=1 to 20 do
writeln(sqr(i));
end.

Answer 2

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

pascalCopy code
program SquaresOfNumbers;

var
  i: Integer;

begin
  for i := 1 to 20 do
  begin
    WriteLn(i * i);
  end;
end.

Эта программа использует цикл for, который проходит через натуральные числа от 1 до 20 и выводит квадрат каждого числа с помощью операции умножения *. Вызов WriteLn используется для вывода каждого квадрата на новой строке.

Пожалуйста, скопируйте этот код в вашу среду разработки Pascal и выполните его, чтобы получить множество квадратов элементов.