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

FACE091 FACE091    1   09.09.2019 02:00    0

Ответы
darina2605 darina2605  09.09.2020 22:37
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
ПОКАЗАТЬ ОТВЕТЫ
света9710 света9710  09.09.2020 22:37
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика