хелп,безотлагательно помогите.Информатика.паскаль

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

Задать свой вопрос
1 ответ

Var x, i:Integer;

Begin

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

I:=0;

While ilt;gt;x do begin

Write(' ', i) ;

I:=random(10)end;

Write(' ', i) ;

Write('Отыскали число') ;

End.

Амина Скидальская
спасибо!)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт