Написать программу на Pascal:

Найти значение выражения x^2-7x+6 для x от 1 до 7.

Question

Палладий

13 января, 13:41

+1

Ответы (2)

Знаете ответ на вопрос?

Поликарп · 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.

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