11000000
Вот ответ . Но объяснить я не могу .
Текстовой и <span>графической</span>
Var a:integer;
d:string;
f:char;
begin
writeln('введите сторку');
readln(d);
for a:=1 to length(d) do begin
f:=d[a];
write(f);
write(' ');
end;
<span>end.</span>
Ответ:
Объяснение:
Var
n,sum,n1,n2,n3:integer;
Begin
Write('Введите 3х значное число: ');
Readln(n);
n1:=n div 101;
n2:=(n div 10) mod 10;
if n2>n1 then writeln('2 число больше первого') else
writeln('1 число больше второго');
end.