Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.