Циклические алгоритмы

@Белая волчица · Регистрация: 20.02.2010

Студворк — интернет-сервис помощи студентам

Определить k -- количество трёхзначных натуральных чисел, сумма цифр которых рана n (1<=n<=27). Операции деления (\, div, mod) НЕ использовать. Заранее спасибо)

@subzero · 24.03.2010, 23:54

http://guap.ru/dept04/caf46/te... dex2.1.htm

Добавлено через 1 минуту

Pascal

program CycleSample;
 
var
 
  n, k, Digit1, Digit2, Digit3: Integer;
 
begin
 
  writeln( ▒Введите n▓);
 
  repeat
 
    readln( n );
 
  until (n>= 1) and (n<= 27);
 
  k:= 0;
 
  for Digit1:= 1 to 9 do      {цикл по 1-ой цифре числа}
 
    for Digit2:= 0 to 9 do    {цикл по 2-ой цифре числа} 
 
      for Digit3:= 0 to 9 do  {цикл по 3-ей цифре числа}
 
        if Digit1 + Digit2 + Digit3= n then k:= k + 1;
 
  writeln( ▒Результат - ▓, k);
 
end.

@Белая волчица 1 / 1 / 1 Регистрация: 20.02.2010 Сообщений: 65
		1
	Циклические алгоритмы 24.03.2010, 23:30. Показов 857. Ответов 1 Метки нет (Все метки) Определить k -- количество трёхзначных натуральных чисел, сумма цифр которых рана n (1<=n<=27). Операции деления (\, div, mod) НЕ использовать. Заранее спасибо) 0

	24.03.2010, 23:54

Опции темы