Вывод квадратов натуральных чисел | Язык Паскаль

Вывод квадратов натуральных чисел

Вывести все квадраты натуральных чисел, не превосходящие данного числа N.

Например, если N = 50, то на экран должен быть выведен ряд 1 4 9 16 25 36 49.

Алгоритм решения задачи:

  1. Ввести число n.
  2. Присвоить x единицу. Это первое натуральное число.
  3. Присвоить переменной y также единицу, так как 12 = 1.
  4. Пока y < n
    1. Вывести значение y на экран.
    2. Увеличить значение x на единицу, получив тем самым следующее натуральное число.
    3. Возвести x в квадрат и присвоить полученное значение переменной y.

Программа на языке Паскаль с использованием цикла while:

var
    n, x, y: integer;
 
begin
    write('Введите предел: ');
    readln(n);
 
    x := 1;
    y := 1;
 
    while y < N do begin
        write(y, ' ');
        x := x + 1; 
        y := sqr(x);
    end;

    writeln;
end.

С циклом repeat:

var
    n, x, y: integer;
 
begin
    write('Введите предел: ');
    readln(n);
 
    x := 1;
    y := 1;
 
    repeat 
        write(y, ' ');
        x := x + 1; 
        y := sqr(x);

    until y >= N;
 
    writeln;
end.

Пример выполнения:

Введите предел: 139
1 4 9 16 25 36 49 64 81 100 121