Помогите пожалуйста, простая задачка!

[Dimon174]

Сам я не понимаю, я такое в школе не проходил, надо девушке. Задание такое: Дано натуральное число, надо найти 1) сумму его цифр, 2) Верно ли, что число начинается и заканчивается одной и той же цифрой. С первой частью задачи мне помогли, а вот вторая... Помогите дописать пожалуйста, буду очень признателен.

Код: Выделить всё

program 1;
uses crt;
var a:longint;
i,k,s:integer;
begin
clrscr;
writeln('ввод числа');
readln(a);
s:=0;
while a>0 do
begin
k:=a mod 10;
a:=a div 10;
s:=s+k;
end;
writeln(s);
readkey;
end.

[Newbie]

Код: Выделить всё

program a1;
uses crt;
var a:longint;
i,k,s:integer;
first, last : integer;
begin
clrscr;
writeln('ввод числа');
readln(a);
if a > 10 then
begin

 first := a mod 10;
 a := a div 10;
 while a>0 do
  begin
   last:=a mod 10;
   a:=a div 10;
 end;
 writeln(first = last);

end
else
 writeln(true);


readkey;
end. 

как то так)

[Хыиуду]

str(A, mystr);
writeln(mystr[1]=mystr[length(mystr)]);

[Dimon174]

Огромное спасибо!! Если вам не трудно, помогите еще с одной задачей, пытался разобраться сам, нашел учебники за 10 11 класс, но так ничего и не понял(

Найти все трехзначные числа, сумма цифр которых равна А, а само число делиться на В (А и В вводятся с клавиатуры)

[Хыиуду]

for i:=100 to 999 do if (i div 100+i div 10 mod 10 + i mod 10=A) and (i mod b=0) then writeln(i);