361,105 (10)=3*10^2+6*10^1+1*10^0+1*10^(-1)+0*10^(-2)+5*10^(-3)
224 (16)=2*16^2+2*16^1+4*16^0
521 (8)=5*8^2+2*8^1+1*8^0
111011 (2)=1*2^5+1*2^4+1*2^3+0*2^2+1*2^1+1*2^0
Анимация процесса копирования или архивации
_____________________________________
program prim;
var a,b:real;
begin
writeln('Введите 2 числа: ');
read(a,b);
if a>b then writeln('Большее число = ', a)
else writeln('Большее число = ', b);
end.
( На самом деле это очень легко) )
<span>оно может быть выражено в разных </span><span>языках</span>
program slovo;
var s: string; i: integer;
Begin
writeln('введите слово'); readln(s);
for i:=length(s) downto 1do begin
write(s[i]);
end;
End.