На интервале от 100 до 150 найти количество цифр, сумма которых равна 5.

Есть ответ
12.12.2022
164

Ответ


program raf105;
var a,b,c,counter,i: integer;

begin

for i:=100 to 150 do

begin

 a:= i div 100;

 b:= (i div 10) mod 10;

 c:= i mod 10;

 if a+b+c=5

   then counter:= counter + 1;

end;

writeln('Количество чисел от 100 до 150, сумма цифр которых равна пяти: ',counter);

end.

Язык PascalABC


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.