Решите паскаль срочно с помощью цикла с предусловием. Вычислить значение функции y=x2...

Question

Решите паскаль срочно с помощью цикла с предусловием.

Вычислить значение функции y=x2 (парабола), для всех x от 1 до n с шагом.

Answer 1

var y:array [1..1000] of integer;

x,n: integer;

begin

readln(n);

for x:=1 to n do begin

y[x]:=x*x;

writeln(y[x]);

end;

end.