62 в 2 системе=111110; в 5 системе=222; в 8 системе=76; в 16 системе=3E
101 в 2 системе=1111001; в 5 системе=401; в 8 системе=145; в 16 системе=65
229 в 2 системе=11100101; в 5 системе=1404; в 8 системе=345; в 16 системе=E5
Просто зайди на сайт, специально ведь нк обрезаю название этого сайта...
Для групповых операций с файлами
используются
маски имен файлов. Маска представляет собой
последовательность букв, цифр и прочих допустимых в именах файлов символов, в
которых также могут встречаться следующие символы: символ «?» (вопросительный
знак) означает ровно один произвольный символ; символ «*» (звездочка) означает любую последовательность символов
произвольной длины, в том числе «*» может задавать и пустую последовательность.
Определите,
какое из указанных имен файлов удовлетворяет маске: ?el*.t*xt.
A) spell.txt
B) pencil.text
C) el.txt
<span>D) welcome.text</span>
Ответ:
Var name,s:string;
Begin
Writeln('Введите Ваше имя и класс через пробел');
Read(s);
Ffor i:=1 to length(s) do
Begin
If s[i]= ' ' then break;
Name:=name+s[i];
End;
Write(name, ' , поздравляем с написанием первой программы на языке Паскаль');
End.
type goods = record name:String; price:real; end;const GOODS_COUNT = 5;var goodsList:array[1..GOODS_COUNT] of goods;id:integer;begin goodsList[1].name:='iPhone 5s'; goodsList[1].price:=760.0; goodsList[2].name:='Samsung Galaxy s5'; goodsList[2].price:=540.0; goodsList[3].name:='Simens m60'; goodsList[3].price:=12.5; goodsList[4].name:='HTC ONE X'; goodsList[4].price:=450.5; goodsList[5].name:='LG L9'; goodsList[5].price:=600.0; write('Write goods id:'); readln(id); if ( ( id < 0 ) or ( id > GOODS_COUNT ) ) then writeln('WRONG ID') else writeln(goodsList[id].name,' price =',goodsList[id].price); <span>end.</span>