Question

Напишите программы для решения задач. Используйте операция div и mod.
1.Задано двузначное число. Найдите среднее арифметическое цифр числа.
2.Задано двузначное число. Найдите разность между количеством десятков и единиц.

Answer 1

Задача №1

var a:integer;

begin

  readln(a);

  writeln(((a div 10)+(a mod 10))/2);

end.

Задача №2

var a:integer;

begin

  readln(a);

  writeln(a div 10 - a mod 10);

end.