ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!! N-целое число, нужно вывести квадрат всех чисел о 1 до N.

ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!! N-целое число, нужно вывести квадрат всех чисел о 1 до N.в паскале abc. решить через for
Гость
Ответ(ы) на вопрос:
Гость
Var n,b:integer; begin wtriteln('введите целое число n'); readln(a); for b:=1 to n do begin writeln('квадрат ',b,' = ',b*b); end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы