Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/35: Рейтинг темы: голосов - 35, средняя оценка - 4.94
0 / 0 / 0
Регистрация: 28.05.2014
Сообщений: 30
1

Даны два натуральных числа.Выяснить,в каком из них больше цифр

08.06.2014, 18:35. Показов 7169. Ответов 1
Метки нет (Все метки)

Даны два натуральных числа.Выяснить,в каком из них больше цифр.(определить функцию для рассчета количества цифр натурального числа).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2014, 18:35
Ответы с готовыми решениями:

Даны два натуральных числа. Выяснить, в каком из них больше цифр
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета...

Подпрограммы. Даны два натуральных числа. Выяснить, в каком из них больше цифр
1)Даны два натуральных числа. Выяснить, в каком из них больше цифр, определив функцию для расчета...

Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета количества цифр натура
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета...

Выяснить в каком из них сумма цифр больше, определив функцию для расчёта суммы цифр натурального числа
Помогите плз решить задачу : Даны 2 натуральных числа.Выяснить в каком из них сумма цифр...

__________________
1
Модератор
63364 / 47064 / 32439
Регистрация: 18.05.2008
Сообщений: 114,073
08.06.2014, 19:17 2
Лучший ответ Сообщение было отмечено ocsoget как решение

Решение

Цитата Сообщение от ocsoget Посмотреть сообщение
(определить функцию для расчета количества цифр натурального числа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function kol(n:longint):byte;
var m:longint;
     k:byte;
begin
m:=n;
k:=0;
while m>0 do
 begin
  k:=k+1;
  m:=m div 10
 end;
kol:=k
end;
Добавлено через 3 минуты
Цитата Сообщение от ocsoget Посмотреть сообщение
в каком из них больше цифр.
Pascal
1
2
3
4
5
var a,b:longint;
..................
if kol(a)>kol(b) then write('Больше цифр в числе ',a)
else if kol(a)<kol(b) then write('Больше цифр в числе ',b)
else write('Цифр поровну');
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2014, 19:17

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Выяснить, в каком из заданных натуральных чисел сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше. (Определить функцию для...

Ввести четыре числа, определить и напечатать в каком из них больше цифр
Подпрограмма Ввести четыре числа, определить и напечатать в каком из них больше цифр;

Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше.(сумма цифр - функция). ...

Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом (перевёртышем)
Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть...


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

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

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