Question

составить программу решающую следующую задачу : дано трехзначное число . найти сумму его крайних чисел.

Answer 1

Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.