1) Дано трехзначное число. Определить, является ли сумма его цифр двузначным числом. 2)...

************* 1 ***************

var
n, s: integer;

begin
Write('Введите трехзначное число: ');
Readln(n);
s := (n div 100) + ((n mod 100) div 10) + (n mod 10);
if (s in [10..99]) then Writeln('Сумма цифр двухзначная (', s, ')')
else Writeln('Сумма цифр не двухзначная (', s, ')')
end.

Тестовое решение:

Введите трехзначное число: 269
Сумма цифр двухзначная (17)

Введите трехзначное число: 125
Сумма цифр не двухзначная (8)

************** 2 ****************

var
n, d1, d3: integer;

begin
Write('Введите трехзначное число: ');
Readln(n);
d1 := (n div 100);
d3 := (n mod 10);
if d1 > d3 then Writeln('Первая цифра больше третьей')
else if d1 = d3 then Writeln('Первая цифра равна третьей')
else Writeln('Первая цифра меньше третьей')
end.

Тестовое решение:

Введите трехзначное число: 739
Первая цифра меньше третьей