Question

Очень нужна помощь !!!С клавиатуры вводятся трёхзначные числа до тех пор,пока первая цифра не станет равна третьей.Вывести на экран только те числа,где сумма цифр меньше десяти.
Паскаль abc

Answer 1

var a,a2,b,c:integer;
begin
write('введите трёхзначное число ==> ');
readln(a);
a2:=a;
while ((a div 100)<>(a mod 10)) do begin
while (a2<>0) do begin
b:=a2 mod 10;
c:=c+b;
a2:=a2 div 10;
end;
if c<10 then writeln('сумма цифр меньше 10 ==> ',a);
c:=0;
write('введите трёхзначное число ==> ');
readln(a);
end;
end.