Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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.
Олесенька вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача по внешним процедурам 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