Вывести все точные квадраты натуральных чисел, не превосходящие данного числа 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()