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

@Alex281 · Регистрация: 05.11.2013

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

@CodeR · 05.11.2013, 14:25

Pascal

Var n,p,max,s:integer;
Function F1(n:integer):integer;
Begin
    F1:=n mod 10;
End;
Function F2(n,m:integer):boolean;
Begin
    F2:=n>m;
End;
Begin
    write('Введите натуральное число: ');readln(n);
    max:=0;
    While n>0 do
    Begin
      p:=F1(n);
      if F2(p,max) then max:=p;
      n:=n div 10;
      s:=s+p;
    End;
    writeln('Сумма цифр = ',s);
    writeln('Max цифра = ',max);
    writeln('Сумма цифр числа деленная на max цифру = ',s/max:0:2);
    readln;
End.

@Alex281 · 05.11.2013, 14:43 **[ТС]**

спасибо огромное

@Alex281 0 / 0 / 0 Регистрация: 05.11.2013 Сообщений: 12
		1
	Найти сумму цифр введенного числа, деленную на его максимальную цифру 05.11.2013, 12:21. Показов 1421. Ответов 2 Метки нет (Все метки) Пользователь вводит натуральное число.Найти сумму цифр этого числа, деленную на максимальную цифру.Использовать процедуры и функции. язык паскаль 0

@Alex281 0 / 0 / 0 Регистрация: 05.11.2013 Сообщений: 12
	05.11.2013, 14:43 [ТС]	3
	спасибо огромное 0

Опции темы

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

Решение