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

Question

Евдоха

17 февраля, 14:35

+4

Ответы (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.