Вывести квадраты чисел от 1 до N.В ПАСКАЛЕ написать программку (НЕ

Вывести квадраты чисел от 1 до N.
В ПАСКАЛЕ написать программку (НЕ ИСПОЛЬЗУЯ for и с циклами WHILE или REPEAT)

Задать свой вопрос
Володя Сегеденко
Не используя for while repeat либо только for, а while repeat можно?
Санодзе Лилия
да, окончательно можно
Панючкин Юрок
только не используя for
1 ответ
Program abc;

var  x,y,N:integer;

begin

write('Enter N: ');

readln(N);

x:=1;
  while ylt;N do begin

 y:=x*x;

if ylt;n then

   write(y,' ');

x:=x+1;

end;

writeln;

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


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

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

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

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

Войти на сайт