Помогите, как можно быстрей , пожалуйста

Помогите, как можно быстрей , пожалуйста

Задать свой вопрос
Тамара
13
1 ответ
Var x: integer;

begin
x:=1;
while xlt;10 do
begin
x:=x+3;
x:=x+1;
end;
writeln(x);
end.

Вывод 
13
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт