- Перевести десятичное число 52 в двоичную систему счисления.
- Перевести десятичное число 341 в восьмеричную систему счисления.
- Перевести десятичное число 762 в шестнадцатеричную систему счисления.
- Перевести двоичное число 10011010 в десятичную систему счисления.
- Перевести двоичное число 1011011010 в восьмеричную систему счисления.
- Перевести двоичное число 101101101110 в шестнадцатеричную систему счисления.
- В саду 100q фруктовых деревьев: из них 33q яблони, 22q груши, 16q слив и 17q вишен. Найдите основание системы счисления, в которой посчитаны деревья.
- Расставьте знаки арифметических операций так, чтобы были верны следующие равенства в двоичной системе счисления:
1100 ? 11? 100 = 100000;
1100 ? 10 ? 10 = 100;
1100 ? 10 ? 10 = 110000;
1100 ? 10 ? 10 = 1011.
i:integer;
s:string;
const
glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю'];
beginwrite ('Vvedite predlohenie: ');
readln (s);
i:=1;
while i<=length (s) do
begin
if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then
begin
while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do
begin
write (s[i]);
i:=i+1;
end;
writeln;
end;
i:=i+1;
end;
readln;
end.
var s,s1:string;
a:array[1..100] of string;
n,i,j,k:byte;
begin
clrscr;
writeln('Введите текст из слов, разделенных пробелами');
readln(s);
s:=' '+s+' ';{добавим пробел в начало и в конец}
n:=length(s);
i:=2; k:=0;{всего слов}
while i<=n do
if (s[i]<>' ')and (s[i-1]=' ') then{если не пробел а перед ним пробел}
begin
k:=k+1;{+ слово}
j:=i;
s1:='';
while (j<=n) and (s[j]<>' ') do {пока не пробел и не конец строки}
begin
s1:=s1+s[j];
j:=j+1;
end;
a[k]:=s1;{пишем его в массив}
i:=i+length(s1);{перешагиваем через слово}
end
else
i:=i+1;{пропускаем пробелы}
for i:=1 to k-1 do {сортируем массив по возрастанию=по алфавиту}
for j:=i+1 to k do if a[i]>a[j] then
begin
s1:=a[i];
a[i]:=a[j];
a[j]:=s1
end;
writeln('Слова текста в алфавитном порядке:');
for i:=1 to k do
writeln(a[i]);
readln
end.