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

33
0

uses crt;

var i,n:integer;


Begin

ClrScr;

i:=1;

Write('Введите N >');

Readln(n);

Repeat

writeln('Квадрат ', i, ' = ', sqr(i));

inc(i)

until i>n;


readln;

end.

Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат

Похожие вопросы

Интересные статьи из справочника

Что же такое феномен K-POP?
735 +131
0
Пройди тест и получи промокод!
269 +69
10
Детальный обзор систем антиплагиата: как с ними работать и как повысить уникальность
16829 +55
11
Разбираемся, как правильно использовать устойчивые выражения.
169 +54
0
Доверьте свою работу экспертам
Разместите заказ
Наша система отправит ваш заказ на оценку 32 074 авторам
Первые отклики появятся уже в течение 10 минут
Напишем уникальную работу
Скидка 10%