Написать и отладить программу, вычисляющую семь значение функции y=x^2+1, где x-задано случайным образом в интервале (-4; 7)

Question

Ида

15 октября, 21:29

+2

Ответы (1)

Знаете ответ?

Анна · Answer 1

Var x, y, i:integer;

begin

writeln ('x':3,'y':5) ;

for i:=1 to 7 do

begin

x:=random (-4,7) ;

y:=x*x+1;

writeln (x:3, y:5) ;

end;

end.