Question

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

Answer 1

Ответ:

Объяснение:

program N1;

var  a, b: integer;

begin

readln(a, b);

if (a div 10 + a mod 10) > (b div 10 + b mod 10) then

writeln ('Сумма цифр ', a, ' больше')

else

writeln ('Сумма цифр ', b, ' больше');

end.

Answer 2

var x,y: integer;

begin

readln(x,y);

if((x mod 10 + x div 10)>(y mod 10 + y div 10))

then write('число ',x,' имеет большую сумму цифр')

else write('число ', y,' имеет большую сумму цифр');

end.