Написать программу ** Pascal: Найти значение выражения x^2-7x+6 для x от 1 до 7.

Question

Написать программу на Pascal:
Найти значение выражения x^2-7x+6 для x от 1 до 7.

Answer 1

Var x,y:integer;beginreadln(x);if (x>1) and (x<7) theny:=sqr(x)-7*x +6;writeln('Значение выражения: ',y);end.

Answer 2

Var x:integer;beginfor x:=1 to 7 do  writeln(x*x-7*x+6);end.

Comments

var x:integer;
begin
for x:=1 to 7 do
writeln(x*x-7*x+6);
end.