Нужна ! с клавиатуры вводятся трёхзначные числа до тех пор,пока первая цифра не станет равна третьей.вывести на экран только те числа,где сумма цифр меньше десяти. паскаль abc
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.
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.