|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.12.2012, 04:08 | #1 |
Пользователь
Регистрация: 12.11.2012
Сообщений: 12
|
Задача по внешним процедурам
помогите решить задачу пожалуйста pascal
по внешним процедурам: Дано натуральное число n. Дописать к нему цифру k в конец и в начало (если это возможно, т.е. результат не выйдет за диапазон допустимых значений), или сообщить о невозможности выполнения операции. и даны так же процедуры , которые должны использоваться... Function Digits(N: LongInt): Byte; Var Kol: Byte; Begin Kol:= 0; While N <> 0 Do Begin Kol:=Kol+1; N:=N Div 10 End; Digits:= Kol; End; Function Power(A, N: LongInt): LongInt; {файл power.inc} Var I,St: LongInt; Begin St:=1; For I:=1 To N Do St:= St*A; Power:= St End; Последний раз редактировалось Олесенька; 15.12.2012 в 17:37. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача по внешним процедурам pascal | Олесенька | Помощь студентам | 2 | 08.12.2012 20:42 |
задача по процедурам в си++ (Абрамян) | Pomogite_pls | Общие вопросы C/C++ | 0 | 12.02.2012 20:49 |
проблема с внешним ЖД | Cannibal | Компьютерное железо | 2 | 16.07.2011 08:55 |
Проблема с Внешним HDD | Ghunn | Компьютерное железо | 7 | 07.01.2010 11:04 |
Проблема с внешним накопителем | Dr.MagoR | Компьютерное железо | 3 | 19.05.2009 21:43 |