![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 29.12.2014
Сообщений: 2
|
![]()
function ToDec(n:string;r:byte):integer;
var m,i:integer; const digit:string[16]='0123456789ABCDEF'; begin m:=0; //while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n[i],digit)-1; ToDec:=m; end; {осоновная программа} var cs:byte; st:string; begin writeln('Введите из какой сс'); readln(cs); writeln('Введите число в соответствии с сс'); readln(st); writeln(ToDec(st,cs)); end. |
![]() |
![]() |
![]() |
#2 |
Новичок
Джуниор
Регистрация: 29.12.2014
Сообщений: 2
|
![]()
помогите пожалуйста
![]() |
![]() |
![]() |
![]() |
#3 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
pascal abc.тема:строки.Нарисуйте пожалуйста блок-схему | sfuwf | Помощь студентам | 1 | 26.11.2013 08:07 |
pascal abc.нарисуйте блок-схему пожалуйста | sfuwf | Помощь студентам | 2 | 14.11.2013 07:05 |
Pascal ABC(нарисуйте пожалуйста блок-схему) | sfuwf | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.10.2013 19:31 |
Нарисуйте пожалуйста блок-схему лёгкой задачки, не знаю как,очень нужно... | prikolist | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.11.2008 15:27 |