Question

Написать функцию, которая возвращает сумму первой и последней цифр входящих в запись числа типа Longint .

Answer 1

var x:longint; k,s:integer;
begin
readln(x);
s:=x mod 10;
while x>0 do begin
k:=x mod 10;
x:=x div 10;
end;
s:=s+k;
writeln(s);
end.

Answer 2

function f(x:longint):integer;
var s:integer;
begin
s:=x mod 10;
while x>9 do x:=x div 10;
f:=s+x;
end;

begin
writeln(f(6120879));
end.

Результат:
15