Линейные алгоритмы в Pascal

sum2;
Var
a, a1, a2, sum : integer;
Begin
write(‘a=‘); readln(a);
a1 := a div 10;
a2 := a mod 10;
sum := a1 + a2;
writeln(‘sum=‘,sum);
end.

Анализ решения задачи:
Дано двухзначное число a (вводится с клавиатуры).
a = a1*10 + a2
где a1 и a2 – первая и вторая цифры числа a.
Тогда: a1 = a div 10
a2 = a mod 10
sum = a1 + a2

Вариант 1

sum2;
Var
a, sum : integer;
Begin
write(‘a=‘); readln(a);
sum := a div 10 + a mod 10;
writeln(‘sum=‘,sum);
end.

Анализ решения задачи:
Дано двухзначное число a (вводится с клавиатуры).
a = a1*10 + a2
где a1 и a2 – первая и вторая цифры числа a.
Тогда: a1 = a div 10
a2 = a mod 10
sum = a div 10 + a mod 10

Вариант 2

Какая программа более эффективна? Почему?

задачи:
Дано трехзначное число a (вводится с клавиатуры).
a = a1*100 + a2*10 + a3
где a1, a2, a3 – первая, вторая и третья цифры числа a.
Тогда: a1 = a div 100
a2 = a div 10 mod 10
a3 = a mod 10

Решение задач