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

@vitalia · Регистрация: 09.03.2010

Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше сумма цифр
(Если можно по подробней заранее спасибо)

@Шутка · 21.03.2010, 21:50

Pascal

USES CRT;
VAR m1,ch1,n1,n2,n3,n4,m2,ch2,n5,n6:LongInt;
BEGIN
ClrScr;
      ReadLn(ch1);
       readln(ch2);
   m1:=ch1;
    n1:=m1 div 100;
    n2:=m1 mod 10;
    n3:=(m1-n1*100-n2) div 10;
   m2:=ch2;
    n4:=m2 div 100;
    n5:=m2 mod 10;
    n6:=(m2-n4*100-n5) div 10;
 if n1+n2+n3>n4+n5+n6 then writeln('1>2');
 if n1+n2+n3<n4+n5+n6 then writeln('1<2')
 else writeln('1=2');
 end.

Проверяйте! Есть вопросы - welcome!

@safa · 21.03.2010, 21:55

Вот решение. Вроде все нормально. Проверял!))

Pascal

Uses WinCrt;
Var
a,a1,a2,a3,b,b1,b2,b3:Integer;
Begin
Write('Введите первое число: ');
Read(a);
WriteLn('Введите второе число: ');
Read(b);
a1:=a mod 10;
a2:=a div 10;
a3:=a2+a1;
b1:=b mod 10;
b2:=b div 10;
b3:=b2+b1;
If a3 > b3 Then
Begin
WriteLn('Больше сумма цифр: ',a);
End;
If b3>a3 Then
Begin
WriteLn('Больше сумма цифр: ',b);
End;
If a3=b3 Then
WriteLn('Сумма цифр одинакова!');
End.

@vitalia 0 / 0 / 0 Регистрация: 09.03.2010 Сообщений: 13
		1
	Вводится два целых числа. Определить у какого из них больше сумма цифр 21.03.2010, 20:51. Просмотров 3317. Ответов 2 Метки нет (Все метки) Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше сумма цифр (Если можно по подробней заранее спасибо) 0

Опции темы

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

Решение