Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
var x: integer;

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

Вывод 
13
29
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам