var a:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
if (a >= 100) and (a <= 999) then
writeln((a div 100) + (a mod 10))
else writeln('Ошибка! Это не трёхзначное число.');
end.
или более гибкий вариант, складывает первую и последнюю цифру числа независимо от того, трёхзначное число или нет:
Пример работ:
var a:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
if (a >= 100) and (a <= 999) then
writeln((a div 100) + (a mod 10))
else writeln('Ошибка! Это не трёхзначное число.');
end.
или более гибкий вариант, складывает первую и последнюю цифру числа независимо от того, трёхзначное число или нет:
var n: integer;beginread(n);Print(n.ToString.First.ToDigit + n.ToString.Last.ToDigit);end.Пример работ: