Var
n,x:integer;
a,b,c:byte;
Begin
read (n);
c:=n div 100 mod 10;
b:=n div 10 mod 10;
a:=n div 1 mod 10;
x:=100*a+10*b+1*c;
write (x);
<span>end.</span>
A) программное обеспечение
б) операционная система
в) Приложения
Ответ:
Объяснение:
Решение в прикрепленных файлах:
<span>Двоичное кодирование</span>
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>