Question

Через Lazarus пожалуйста: Задача Вывести все квадраты натуральных чисел, не превосходящие данного числа N. Пример: N=50 | 1 4 9 16 25 36 49Решение Алгоритм решения задачи: 1. Ввести число N. 2. Присвоить x единицу. 3. Пока x^2 < n 1. Возвести x в квадрат b вывести значение x^2 на экран. 2. Увеличить значение x на единицу.

Answer 1

Ответ:

Сделал на С++

Объяснение:

Код программы:

#include <iostream>//для ввода - вывода

#include <windows.h>//для русской раскладки

using namespace std;

int main()

{

SetConsoleCP(1251);//подключаем русскую раскладку

SetConsoleOutputCP(1251);

int N;

cout << "Введите N: ";

cin >> N;

for (int x = 1; (x * x) < N; x++)

{

 cout << x*x << " ";

}

return 0;

}

Answer 2

Вот пример реализации данной задачи на Lazarus:

pascalCopy code
program Вывод_квадратов;

var
  N, x: Integer;

begin
  // Шаг 1: Ввод числа N
  Write('Введите число N: ');
  Readln(N);

  // Шаг 2: Присвоить x единицу
  x := 1;

  // Шаг 3: Пока x^2 < N
  while x * x <= N do
  begin
    // Возвести x в квадрат и вывести значение x^2 на экран
    writeln(x * x);

    // Увеличить значение x на единицу
    Inc(x);
  end;
end.

Этот код сначала просит пользователя ввести число N, затем использует цикл while, чтобы вычислить и выводить квадраты натуральных чисел, начиная с 1 и увеличивая x до тех пор, пока x^2 не станет больше или равным N.