<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('n=');
Writeln(1.To((n+10) div 2).JoinIntoString('')[n]);
end.
<em><u>Значит дробь правильная, делай по правилу и все получится)</u></em>
1) Реальный объект можно ощутить без дополнительного оборудования, тогда как виртуальные предметы без оборудования бесполезны
2) Реальный объект имеет идеальную физику, тогда как виртуальный лишь имитирует её
3) Виртуальный объект не имеет массы (кроме как информационного веса) и не может взаимодействовать с реальным миром, а лишь имулирует это взаимодействие
4) Пользование виртуальной реальностью происходит реже, чем реальной, значит и предметы будут по разному востребованы
5) Виртуальный объект имеет форму, повторить которую в реальности будет невозможно, так как только имулирует её реальную форму
6) Виртуальный объект можно точнее редактировать, чем реальный.
7) Виртуальный объект можно получить на любом оборудовании, тогда как реальный объект придется добывать, если он вообще существует
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>