Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N
5-9 класс
|
var N,i,k,L:integer;
begin
read (N);
L:=0;
for i:=100 to 999 do
begin
k:=((i mod 100) mod 10) + ((i mod 100) div 10) + (i div 100);
if (k=N) then
begin
L:=L+1;
end;
end;
writeln (L);
end.
Другие вопросы из категории
племени Мульти содержало 100 символов, а письмо племени Пульти - 50 символов. Сравните объемы информации, содержащиеся в письмах.
.Три друга – Алеша, Сережа и Денис – купили щенков разной породы – колли, ротвейлер и овчарку. Дали им клички – Джек, Гриф и Шарик. Известно, что:- Щенок Алеши темнее по окрасу, чем овчарка, Шарик и Джек;- Щенок Сережи старше Джека, ротвейлера и овчарки.
Читайте также
2. Составить программу удвоения большего из двух чисел.
3. Написать программу вычисления произведения всех двузначных четных чисел.
4. Определить количество двузначных натуральных чисел, сумма цифр которых равна заданному числу N.
Все в Pascal. Очень прошу помочь
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
на печать все числа, меньшие 10000,
сумма цифр которых равна некоторому числу, вводимому с клавиатуры