Вопрос Помогите составить программу в Pascal ABC !

[Евгений12121]

Дано натуральное число
1)Программа, которая находит сумму цифр этого числа
2)которая определяет, что число начинается и заканчивается одной и той же цифрой

 

[MyCore]

2) program q199768374; var  n: Integer; begin  ReadLn;  Writeln(n div Trunc(Exp(Ln(10) * Trunc(Ln/Ln(10)))) = n mod 10);  ReadLn; end.

 

[щдлвак]

Var n,s:integer; Begin Readln; s:=0; While n<>0 do begin s:=s+n mod 10; n:=n div 10; end; Writeln(s); End.

 

[вфтшл]

Мошенник «Кот ученый!» и "Александр Погребняк! - который тебе написал, это бывший ник «Романа Максимова» - вчера еще был "Зотиков", РЕШАЕТ НЕВЕРНО ВСЕМ, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! ныкается как крыса под разными именами)) Сидит на даче безработный старпёр С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга обул на 320 руб – денег не вернул!!! У этого мошенника Зотикова-Леоновой – есть еще страницы - ИХ УЖЕ ЗАКРЫЛИ ЗА МОШЕННИЧ-ВО - он с трёх страниц кидает одновременно!!! Имя сменил только.

 

[nicita23]

используйте операции div и mod для разбора числа на цифры.

 

[Whispering]

Дано натуральное число
1)Программа, которая находит сумму цифр этого числа
2)которая определяет, что число начинается и заканчивается одной и той же цифрой

Число от 1 до 2147483647, связано с тем что это макс. значение типа longint.

label loop;
var a,b,s,l,e:longint;
begin
  l:=2147483647;
  loop:
  writeln('Введите натуральное число');
  readln(a);
  if (a>0) and (a<l) then
  begin 
  b:=a;
  s:=0;
  while ( b<>0 ) do 
  begin
    s := s + (b mod 10);
    b := b div 10;
  end;
 writeln( 'Сумма цифр числа ',a,' = ', s );
 end
 else 
 begin 
 writeln('Число может иметь значение от 1 до 2147483647');
 writeln();
 goto loop;
 end;
 e:=a mod 10;
 while a>10 do a:=a div 10;
 if e=a then write('Первая и последняя цифры заданного числа равны')
 else write('Первая и последняя цифры заданного числа не равны');
 writeln();
 goto loop;
end.