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

@skleir · Регистрация: 18.01.2012

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

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

@Puporev · 14.03.2012, 12:46

Pascal

function sum(n:integer):byte;
var m:integer;
    s:byte;
begin
m:=abs(n);
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
Sum:=s;
end;
var a,b:integer;
    sa,sb:byte;
begin
writeln('Введите 2 целых числа:');
read(a,b);
sa:=Sum(a);
writeln('Сумма цифр числа ',a,'=',sa);
sb:=Sum(b);
writeln('Сумма цифр числа ',b,'=',sb);
if sa>sb then write('В числе ',a,' сумма цифр больше')
else if sb>sa then write('В числе ',b,' сумма цифр больше')
else write('Суммы цифр одинаковые');
end.

@skleir 1 / 1 / 0 Регистрация: 18.01.2012 Сообщений: 30
		1
	Составить функцию, определяющую, в каком из чисел цифр сумма цифр наибольшая 14.03.2012, 12:38. Показов 1549. Ответов 1 Метки нет (Все метки) составить функцию, определяющую, в каком из чисел цифр сумма цифр наибольшая. 0

	14.03.2012, 12:46

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

Решение