Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
Zorroo
0 / 0 / 1
Регистрация: 19.12.2012
Сообщений: 177
Завершенные тесты: 1
#1

Описать функцию целого типа, находящую количество цифр целого положительного числа K

07.04.2013, 19:48. Просмотров 1389. Ответов 1
Метки нет (Все метки)

Описать функцию DigitCount(K) целого типа, находящую количество цифр целого положительного числа K. Используя Описать функцию DigitCount(K) целого типа, находящую количество цифр целого положительного числа K. Используя эту функцию, найти ко-личество цифр для каждого из пяти данных целых положительных чисел.эту функцию, найти ко-личество цифр для каждого из пяти данных целых положительных чисел.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2013, 19:48
Ответы с готовыми решениями:

Описать функции DigitCount (k) целого типа, находящую количество цифр целого положительного числа К
Описать функции DigitCount(k) целого типа, находящую количество цифр целого...

Описать функцию целого типа, возвращающую N-ю цифру целого положительного числа K
описать функцию DigitN (K,N) целого типа ,возвращающую N-ю цифру целого...

Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр целого числа K
Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр...

Описать функцию, возвращающую N-ю цифру целого положительного числа
описать функцию DigitN (K,N) целого типа ,возвращающую N-ю цифру целого...

Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный
Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр...

1
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
07.04.2013, 20:59 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var k:longint;
 
function digitcount(k:longint):integer;
var kol:integer;
begin
kol:=0;
while k>0 do
begin
        inc(kol);
        k:=k div 10;
end;
digitcount:=kol;
end;
 
BEGIN
clrscr;
writeln('vvedite 4islo');
readln(k);
writeln('V nem cifr - ',digitcount(k));
readkey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2013, 20:59

Вычислить сумму цифр введенного целого положительного числа
Вычислить сумму цифр введенного целого положительного числа.

Описать функцию isldent(s) целого типа
Ребят помогите пожалуйста, дали задание , но так уж вышло что в паскале я...

Описать функцию MinElem(A, N) целого типа
Описать функцию MinElem(A, N) целого типа, находящую минимальный элемент...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru