Question

Срочно
Написать программу. X=8, x:=x*x+i, где i имеет значения от 3 до 9

Answer 1

Ответ:

program HelloWorld;

var x, i : Longint;

begin

   Randomize;

   i:= Random(9) + 3;

   x:= 8;

   x:=x*x+i;

   writeln(x)

end.

Answer 2

var

i,x: int64;

begin

x:=6;

for i:=3 to 9 do

x:=x*x+i;

writeln(x)

end.