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

Question

Милен

21 мая, 09:32

+1

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