Программа № 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.
Похожие записи/страницы:
- Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0 < S < 18)- Pascal(Паскаль)
- Найти все трехзначные числа, сумма цифр которых равна заданному числу В - Pascal(Паскаль)
- Найти кол-во трехзначных чисел, сумма цифр которых равна A , а само число заканчивается цифрой b. (a и b вводятся с…
- Дано к. определить n количество трехзначных натуральных чисел у которых сумма цифр p=k- Pascal(Паскаль)
- Среди всех n-значных чисел указать те, сумма цифр которых равна заданному числу k. (k и n вводить с клавиатуры.) -…
- Определить количество трехзначных чисел, кратных 9. Использовать следующий признак: число кратно 9, если сумма всех его…
- Найти все 3-х значные числа, такие, что сумма цифр равна А, а само число делится на В (А и В вводится с клавиатуры) -…
- Найти количество трехзначных чисел, сумма цифр которых равна A, а само число заканчивается цифрой B (A и B вводятся с…