Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше

@Vany96 · Регистрация: 09.11.2011

magirus · 06.12.2011, 19:51

Комментарий модератора

внимание, супер-пупер правила форума
внимательно читать и больше не нарушать

@versa4e · 06.12.2011, 20:12

Pascal

var
  a,b,c,max_s,max:integer;
function Sum(a:longint):integer;
var
  s:integer;
begin
  s:=0;
  while a<>0 do
    begin
      s:=s+a mod 10;
      a:=a div 10;
    end;
  Sum:=s;
end;
begin
  write('a,b,c=');
  readln(a,b,c);
  if Sum(a)>Sum(b) then
    begin
      max_s:=Sum(a);
      max:=a;
    end
  else
    begin
      max_s:=Sum(b);
      max:=b;
    end;
  if Sum(c)>max_s then
    begin
      max_s:=Sum(c);
      max:=c;
    end;
  write(max);
end.

@Vany96 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 3
		1
	Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше 06.12.2011, 19:45. Просмотров 3660. Ответов 2 Метки нет (Все метки) Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше 0

Опции темы

Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше

Решение