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

Question

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

---

Answer 1

Program lol_kek_4ebyrek;

var x, y:integer;

begin

writeln('Формула: y=x^2');

for x:=1 to 10 do

begin

y:=x*x;

writeln('При x=',x,' y=',y);

end;

end.