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