Работа с натуральными цифрами в Делфи

[Cartman18]

ммм воть думал думал (( как решить так и не получилось! помогите )
1. Дано натуральное число:
• найти сумму цифр этого числа;
• определить, верно ли, что число начинается и заканчивается одной и той же цифрой.
2. Найти все трехзначные числа, такие, сумма цифр которых равна А, а само число делится на В (А и В вводятся с клавиатуры).
очень нужнО((( Заранее спасибО!!!

[Stilet]

• найти сумму цифр этого числа;
• определить, верно ли, что число начинается и заканчивается одной и той же цифрой.

Ну дык превращай число в строку и работай уже с каждой циифирькой (уже обсуждалось ищи поиском)

[Cartman18]

мммм а найти не могу((( тут

[Alter]

Вот вам решение:

1)

Const Otv :Array[Boolean] of String = ('Neravno!', 'Ravno...');
var A,Sum,I :Longint; Err :Integer;
    S :String;
    Tst :Boolean;
begin
 Write('Vvedite chislo: '); Readln(a);
  Str(A, S);
  Sum := 0;
 For I:=1 to Length(S) Do
 begin
  Val(S[I], A, Err);
  Sum := Sum + A;
 end;
  Tst := S[1]=S[Length(S)];
 Writeln;
 Writeln('Summa cifr=', Sum);
 Writeln('Chislo v nachale & konce ravno? = ', Otv[Tst]);
 Readln;
end.

2)

Uses Crt;
Const Tab = '      ';
Var A,B,I :LongInt; 
     S :String;

 Function Suma(S1 :String):LongInt;
 Var Sum,I1,C :LongInt; Err :Integer;
 begin
  Sum:=0;
  IF S1='' Then Suma:=0;
  For I1:=1 To Length(S1) Do
  begin
   Val(S1[I1], C, Err);
   Sum := Sum + C;
  end;
  Suma := Sum;
 end;

begin
  ClrScr;
 Write('Vvedite "A": '); Readln(A);
 Write('Vvedite "B": '); Readln(B);
  WriteLn;

  WriteLn('Chisla, summa kotorih ravna "A", & delisya na "B":');
 For I:=100 To 999 Do
 begin
  Str(I, S);
  IF (Suma(S)=A)And((I mod B)=0) Then
    Write(' [', I, ']=', A, ';', Tab);
 end;
 Readln;
end.

___________________________________ ______________________________
++Me

[puporev]

Как обещал, обе задачи.