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

Пользователь вводит натуральное число.Найти сумму цифр этого числа,деленную на максимальную цифру.Использовать процедуры и функции

25.11.2012, 19:30. Показов 1672. Ответов 1
Метки нет (Все метки)

Пользователь вводит натуральное число.Найти сумму цифр этого числа,деленную на максимальную цифру.Использовать процедуры и функции
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2012, 19:30
Ответы с готовыми решениями:

Пользователь вводит натуральное число .Найти сумму цифр этого числа, деленную на максимальную цифру . Использовать процедуры или функции
Пользователь вводит натуральное число .Найти сумму цифр этого числа, деленную на максимальную цифру...

Пользователь вводит натуральное число. Найти минимальную цифру этого числа и возвести введённое число в степень
Пользователь вводит натуральное число. Найти минимальную цифру этого числа и возвести введённое...

Найти сумму цифр числа, деленную на максимальную цифру
Пользователь вводит натуральное число. Найти сумму цифр это числа, деленную на максимальную цифру....

Найти сумму цифр введенного числа, деленную на его максимальную цифру
Пользователь вводит натуральное число.Найти сумму цифр этого числа, деленную на максимальную...

1
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
25.11.2012, 19:41 2
Лучший ответ Сообщение было отмечено EriCKinG как решение

Решение

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
26
27
28
29
30
31
32
33
34
35
36
37
var
  Num : integer;
 
function Sum (Num : integer) : integer;
var
  I : integer;
begin
I := 0;
while Num > 9 do
  begin
  I := I + Num mod 10;
  Num := Num div 10;
  end;
Sum := I + Num;   
end;
 
 
function Max (Num : integer) : integer;
var
  I : integer;
begin
I := 0;
while Num > 9 do
  begin
  if i < Num mod 10 then i := Num mod 10;
  Num := Num div 10;
  end;
if i < Num mod 10 then i := Num mod 10; 
Max := i;
end;
 
begin
Write('Число: ');
Readln(Num);
if Max(Num) = 0 then Writeln('Деление на ноль!')
  else Writeln('Ответ: ', Sum(Num)/Max(Num):0:3);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2012, 19:41

Пользователь вводит натуральное число. Найти количество нулей и единиц в данном числе. Использовать процедуры или функции
Пользователь вводит натуральное число. Найти количество нулей и единиц в данном числе. Использовать...

Дано натуральное число, определить сумму цифр в нем. Пользователь вводит число n и цифру a. Определить, сколько раз цифр
1. Дано натуральное число. Определить сумму цифр в нем. 2. Пользователь вводит число n и цифру...

Пользователь вводит пятизначное число, вы рассчитываете сумму и произведение цифр этого числа. Вот мой не полный код
#include &lt;pch.h&gt; #include &lt;iostream&gt; using namespace std; int main() { int usernum; int...

Пользователь вводит натуральное число, потом вводит цифру
Пользователь вводит натуральное число, потом вводит цифру, если в числе встречается заданая...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru