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

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

15.06.2013, 20:26. Показов 1498. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

__________________
1
14 / 14 / 16
Регистрация: 02.03.2013
Сообщений: 27
15.06.2013, 20:36 2
Лучший ответ Сообщение было отмечено Galiya28 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Program p1;
function NumberOfDigits(number:integer):integer;
var i:integer;
begin
  i:=0;
  while number > 9 do begin
    i:= i + 1;
    number:= number div 10;
  end;
  i:= i + 1;
  NumberOfDigits:=i;
end;
 
var
a,b:integer;
begin
  readln(a,b);
  if NumberOfDigits(a) > NumberOfDigits(b) then
    writeln('a > b')
  else
  if NumberOfDigits(a) < NumberOfDigits(b) then
    writeln('a < b')
  else
    writeln('a = b');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2013, 20:36

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

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

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

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

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


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

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

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