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

Question

Информатика

Аникий

2 января, 18:24

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

+2

Ответы (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