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

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

Задать свой вопрос
1 ответ

program zz1;
var i,n:integer; //заводим переменные
begin
write(введите n); //вводим данное число n
read(n);
i:=1; //задаем изначальное значение цикла
repeat
write(i*i, ); // выводим квадраты числа на экран в строку через пробел
i:=i+1; //увеличиваем параметр цикла
until i*igt;n ; //указываем условие окончания цикла
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт