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

Question

Информатика

Бонифатий

4 мая, 13:26

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

+1

Ответы (2)

Знаете ответ?

Горя · 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