Задачи повышенной сложности по Турбо Паскалю

[DimaSharger]

Даны цифры двух целых чисел: двузначного a2a1 и однозначного b, где а1-число единиц, а2-число десятков. Получить цифры числа, равного сумме заданных чисел (известно что это двузначное число). Слагаемое-двузначное число и число-результат не определять: условный оператор не использовать.
P.S задача списана с учебника Д.М Златопольского стр 21 задача 2,34.
Обязательно поблагодаряю автора лучшего решения

[airyashov]

могу предложить так, если правильно понял задачу
c2=a2+((a1+b) div 10)
c1=(a1+b) mod 10

[DexterUa]

Код: Выделить всё

uses Crt;
var
 a2,a1,b:integer;
begin
 write('Enter a2=');
 readln(a2);
 write('Enter a1=');
 readln(a1);
 write('Enter b=');
 readln(b);
 write (a2+(a1+b) div 10,(a1+b) mod 10);
 ReadKey;
end.

Ой, уже написали =)

[DimaSharger]

могу предложить так, если правильно понял задачу
c2=a2+((a1+b) div 10)
c1=(a1+b) mod 10

Большое спасибо Задача решена обсалютно правильно. И Так Же спасибо второму автору за то что полностью описал код программы