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

@Мишаня74 · Регистрация: 22.01.2012

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

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

@UserABC · 20.04.2012, 21:55

Сообщение от Мишаня74

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

Код:

Pascal

Program sumzif; uses crt;
function sumz(a:LongInt):Byte;
var
b,sum:byte;
begin
 sum:=0;
 while a>0 do
  begin
   b:=a mod 10;
   sum:=sum+b;
   a:=a div 10;
  end;
  sumz:=sum;
end;
var
n1,n2,n3,max:Longint;
begin
write('N1=');
readln(n1);
write('N2=');
readln(n2);
write('N3=');
readln(n3);
if (sumz(n1)> sumz(n2)) and (sumz(n1)> sumz(n3)) then writeln('n1 - íàèáîëüøåå ÷èñëî');
if (sumz(n1)< sumz(n2)) and (sumz(n2)> sumz(n3)) then writeln('n2 - íàèáîëüøåå ÷èñëî');
if (sumz(n3)> sumz(n1)) and (sumz(n2)< sumz(n3)) then writeln('n3 - íàèáîëüøåå ÷èñëî');
end.

@Мишаня74 0 / 0 / 0 Регистрация: 22.01.2012 Сообщений: 9
		1
	Даны три натуральных числа. Определить, в каком из них сумма цифр больше. 20.04.2012, 16:59. Показов 4783. Ответов 1 Метки нет (Все метки) Помогите решить задачу. Даны три натуральных числа. Определить, в каком из них сумма цифр больше. Определить функцию поиска суммы цифр натурального числа. 0

	20.04.2012, 21:55

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

Решение