93

2. Определить количество трехзначных цифр, сумма цифр которого равна заданному…

15 марта 2023

2. Определить количество трехзначных цифр, сумма цифр которого равна заданному числу N (в паскале, Цикл сосчетчиком)

категория: информатика

35

program asd; var x,k,n: integer; beginreadln (n); for x: =100 to 999 do beginif (x div 100+x div 10 mod 10+x mod 10=n) thenk: =k+1; end; writeln (k); readln; end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...