Итак, я продолжаю выкладывать тематические исходники по определенным направлениям изучения языка программирования 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