Исходник, который определяет количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n

Исходник, который определяет количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n

Итак, я продолжаю выкладывать тематические исходники по определенным направлениям изучения языка программирования Pascal. Сегодня я выкладываю исходник на тему циклов с параметром - FOR.

Задача Паскаль сегодня следующая: Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n. Нужно учесть, что вводимое число входит в рамки от 0 по 27.Больше сумма цифр трехзначного числа быть просто не может.

Исходный код программы:

var n,i,kol: integer;
Begin
write('Введите число: ');
readln(n);
write('Количество трехзначных чисел, сумма цифр которых равна ',n,': ');
for i:=100 to 999 do
    if (i div 100)+(i div 10 mod 10)+(i mod 10)=n
       then kol:=kol+1;
write(kol);
End.


Принцип работы предельно прост: с помощью цикла FOR программа перебирает все трехзначные числа и находит сумму их цифр, после чего сравнивает их с заданным числом n.

Скачать исходник: pas3for.pas
Автор: Zed от 2013-07-27 18:19:39   Просмотров: 7848

Теги: Паскаль Pascal исходник исходники скачать FOR циклы