Очень нужна помощь !!!С клавиатуры вводятся трёхзначные числа до тех пор,пока первая...

Question

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

Comments

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.

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.