найти сумму первой и последней цифр любого целого положительного числа.

[Лина94]

найти сумму первой и последней цифр любого целого положительного числа.помогите решить зарание большое спасибо

[Лина94]

var sum: integer;
     number: longint;
begin
 sum := 0;
 write('Введите число: ');
 readln(number);

 while number > 0 do
  begin
    {Делим число на 10 и получаем остаток от деления т.е. крайнюю правую цифру числа}
    sum := sum + (number mod 10); 
    {Делим число на 10 и получаем целую часть числа т.е. отбрасываем крайнюю правую цифру от числа}
    number := (number div 10);
  end;
 writeln('Сумма цифр числа = ', sum);
 readln;
end.

пробую,не получается напишете как решите пожалуста(



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[9i.]

Сообщение от Лина94

writeln('Сумма цифр числа = ', sum);
(

и

Сообщение от Лина94

найти сумму первой и последней цифр

что вам нужно найти, все-таки?

[whatever]

var sum: integer;
 number: longint;
 str:string;
 begin
 sum := 0;
 write('Введите число: ');
 readln(number);
 str:=IntToStr(number);
 sum:=StrToInt(str[1])+StrToInt(str[length(str)]);
 writeln('Сумма цифр первого и последнего числа = ', sum);
 readln;
end.

Можно еще через div и mod, но, мне кажется, мой вариант понятнее.

[Лина94]

Сообщение от whatever

var sum: integer;
 number: longint;
 str:string;
 begin
 sum := 0;
 write('Введите число: ');
 readln(number);
 str:=IntToStr(number);
 sum:=StrToInt(str[1])+StrToInt(str[length(str)]);
 writeln('Сумма цифр первого и последнего числа = ', sum);
 readln;
end.

Можно еще через div и mod, но, мне кажется, мой вариант понятнее.

спасибо!!!!!!

[whatever]

А впринципе и с mod & div не сложно

var sum: integer;
 number: longint;
 first:boolean;
 begin
 sum := 0;
 write('Введите число: ');
 readln(number);
 sum := sum + (number mod 10);
 while number > 9 do
   number := (number div 10);
 Sum:=sum+number;
 writeln('Сумма первой и последней цифр числа = ', sum);
 readln;
 end.