Вывести все точные квадраты натуральных чисел, не превосходящие данного числа 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.
Объяснение кода листинга программы
- Вводится значение переменной
n
с помощью функции ReadLn() - Используется цикл for для перебора всех чисел от 1 до корня из n с шагом 1
- Внутри цикла вычисляется квадрат числа n с помощью функции sqr() и выводится на экран с помощью функции Write()
- После завершения цикла выводится символ новой строки с помощью функции WriteLn()
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д