ЛЮДИ Добросердечные ПОМОГИТЕ!25балловВыведите все четкие квадраты естественных чисел, не

ЛЮДИ ДОБРЫЕ ПОМОГИТЕ!
25баллов

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

Входные данные
Задано единственное целое число N

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

Образцы
входные данные
15
выходные данные
1
4
9

Задать свой вопрос
1 ответ
Var n,k:integer;
begin
write('n='); readln(n);
k:=1;
while k*klt;=n do
 begin
 writeln(k*k);
 k:=k+1;
 end;
end.

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


Последние вопросы

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

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

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

Войти на сайт