Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n — Pascal(Паскаль)-CF

Программа № 1

uses crt;
var c,i,k: integer;
begin
write('Задайте число: ');
readln(c);
write('Количество трехзначных чисел, сумма цифр которых равна ',c,': ');
for i:=100 to 999 do
    if (i div 100)+(i div 10 mod 10)+(i mod 10)=c
       then inc(k);
write(k);
end.

Программа № 2

var
  c, i, k: integer;
begin
  write('Задайте число: ');
  readln(c);
  write('Количество трёхзначных чисел, сумма цифр которых равна ', c, ': ');
  i := 100;
  while i < 1000 do
    begin
      if (i div 100) + (i div 10 mod 10) + (i mod 10) = c then inc(k);
      inc(i)
    end;
  write(k)
end.

Leave a Comment