Хелп,срочно помогите.Информатика.паскаль​

Question

Хелп,срочно помогите.Информатика.паскаль​

---

Answer 1

Var x, i:Integer;

Begin

Write('x=') ;read(x) ;

I:=0;

While i<>x do begin

Write(' ', i) ;

I:=random(10)end;

Write(' ', i) ;

Write('Нашли число') ;

End.

Comments

спасибо!)