Question

Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр ОЧЕНЬ СРОЧНО!!!

Answer 1

Var
a:integer;
begin
   readln(a);
      if (a mod 10+a div 10>10) and(a mod 10+ a div 10<100) then
           writeln('двузначное')
      else writeln('не двузначное');
if a mod 10+a div 10>a then
    writeln('больше')
else writeln('не больше');
end.

Answer 2

{Дано двузначное число.
Определить:
а) является ли сумма его цифр двузначным числом;
б) больше ли числа а сумма его цифр}
var n, s : byte;
    a:integer;
begin
 writeln('введите двузначное число');
 readln(n);
{определение суммы цифр числа div - целая часть от деления, mod - остаток от деления}
 s:=n div 10 + n mod 10;
 writeln('сумма цмфр числ', n:5, 'равна',s:5);
 if s>9 then writeln('сумма цифр двузначное число', s)
  else writeln('сумма цифр не двузначное число', s);

 writeln('введите число а');
 readln(a);
 if s>a then writeln('сумма цифр', n,' больше ли числа ', a)
  else writeln('сумма цифр', n,' меньше числа ', a);

end.