Описать функцию, которая возвращает сумму наибольших цифр из числа

@natali_a · Регистрация: 08.03.2014

Студворк — интернет-сервис помощи студентам

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

Kodzaev · 08.03.2014, 22:01

Pascal

function sum(x: longint; k: byte): integer;
var
  s: integer;
begin
  s := 0;
  if x <> 0 then
    while x > 0 do
    begin
      if x mod 10 = k then
        s := s + x mod 10;
      x := x div 10;
    end;
  sum := s;
end;
 
var
  t, n: longint;
  max: byte;
 
begin
  Write('N = '); ReadLn(n);
  t := n;
  while t > 0 do
  begin
    if t mod 10 > max then
      max := t mod 10;
    t := t div 10
  end;
  WriteLn(sum(n, max));
  ReadLn
end.

@natali_a 0 / 0 / 0 Регистрация: 08.03.2014 Сообщений: 9
		1
	Описать функцию, которая возвращает сумму наибольших цифр из числа 08.03.2014, 21:26. Показов 1298. Ответов 1 Метки нет (Все метки) Описать функцию, которая возвращает сумму наибольших цифр входящих в запись числа типа Longint (например двух наибольших цифр) 0

Опции темы

Описать функцию, которая возвращает сумму наибольших цифр из числа

Решение