Помогите, как можно быстрей , пожалуйста
Приложения:
Ответы на вопрос
Ответил ShirokovP
0
var x: integer;
begin
x:=1;
while x<10 do
begin
x:=x+3;
x:=x+1;
end;
writeln(x);
end.
Вывод
13
begin
x:=1;
while x<10 do
begin
x:=x+3;
x:=x+1;
end;
writeln(x);
end.
Вывод
13
Новые вопросы