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

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Вывести все точные квадраты натуральных чисел, не превосходящие данного числа N»

textual
Листинг программы
var n: Integer;
begin
  Write('Введите n: '); ReadLn(n);
  for n:=1 to Trunc(sqrt(n)) do Write(' ',sqr(n)); WriteLn;
end.

Объяснение кода листинга программы

  1. Вводится значение переменной n с помощью функции ReadLn()
  2. Используется цикл for для перебора всех чисел от 1 до корня из n с шагом 1
  3. Внутри цикла вычисляется квадрат числа n с помощью функции sqr() и выводится на экран с помощью функции Write()
  4. После завершения цикла выводится символ новой строки с помощью функции WriteLn()

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы