Найти, у какого числа сумма цифр больше

@nastenkaa · Регистрация: 01.10.2011

даны 3 числа. найти у какого числа сумма цифр больше. нужно решить с помощью процедур!

@SuPeR XaKer · 15.11.2011, 17:34

nastenkaa,

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

называйте темы информативно

@nastenkaa · 16.11.2011, 18:58 **[ТС]**

помогите пожалуйста!

@Puporev · 16.11.2011, 19:28

Pascal

uses crt;
procedure Summa(n:longint;var s:byte);
var m:longint;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
writeln('Сумма цифр числа ',n,'=',s);
end;
 
var a,b,c,d:longint;
    sa,sb,sc,mx:byte;
begin
clrscr;
writeln('Введите 3 натуральных числа:');
readln(a,b,c);
Summa(a,sa);
Summa(b,sb);
Summa(c,sc);
if sa>sb then
 begin
  mx:=sa;
  d:=a;
 end
else
 begin
  mx:=sb;
  d:=b;
 end;
if sc>mx then
 begin
  mx:=sc;
  d:=c;
 end;
write('Максимальная сумма цифр=',mx,' у числа ',d);
readln
end.

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
		1
	Найти, у какого числа сумма цифр больше 15.11.2011, 17:28. Просмотров 921. Ответов 3 Метки нет (Все метки) даны 3 числа. найти у какого числа сумма цифр больше. нужно решить с помощью процедур! 0

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
	16.11.2011, 18:58 [ТС]	3
	помогите пожалуйста! 0

Опции темы

Найти, у какого числа сумма цифр больше

Решение