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
Var s,s1,s2:string; i:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s;
while pos(' ',s1)>0 do delete(s1,pos(' ',s1),1);
writeln('Строка без пробелов:');
writeln(s1);
s2:='';
for i:=1 to length(s1) do
if s1[i]='.' then s2:=s2+'. ' else s2:=s2+s1[i];
writeln('Строка с пробелами после ".":');
writeln(s2);
end.
Пример:
Введите строку:
1. 2. 3. 4. 5. Вышел зайчик. Погулять.
Строка без пробелов:
1.2.3.4.5.Вышелзайчик.Погулять.
Строка с пробелами после ".":
1. 2. 3. 4. 5. Вышелзайчик. Погулять.
1)BC(16) = 188(10)
2)
3)
21,1(10)
25,1(8)
15,1(16)
4)
Var a, b, c:integer;
function sravnenie(a, b, c:integer):boolean;
begin
sravnenie:=false;
if a<b then
begin
if b<c then sravnenie:=true;
end;
end;
begin
writeln('Введи 3 числа');
readln(a, b, c);
if sravnenie(a, b, c) then writeln('Да') else writeln('Нет');
end.