Question

Вычислить и напечатать значения функции y=x^2 для x от 1 до 10 с шагом 1 ( используя цикл for ). В языке паскаля.

Answer 1

program sq;
var x:integer;
begin
for x:=1 to 10 do writeln('y(',x,') = ', sqr(x));
end.