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