Определить количество M-значных натуральных чисел, у которых сумма цифр равна заданному значению

@Александра2307 · Регистрация: 25.04.2015

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

Определить количество M-значных натуральных чисел, у которых сумма цифр, стоящих в нечетных разрядах, равна $https://www.cyberforum.ru/cgi-bin/latex.cgi?N (1 \leq N \leq 30, 0 < M < 5).$

@Joy · 24.06.2015, 09:42

Pascal

var
  m,n,k,i,j,s:integer;
  t:string;
begin
  repeat
    write('n=');
    readln(n);
  until n in [1..30];
  repeat
    write('m=');
    readln(m);
  until m in [0..5];
  j:=1;
  for i:=1 to m do j:=j*10;
  for i:=j div 10 to j-1 do begin
    t:=inttostr(i);
    s:=0;
    for j:=1 to length(t) do if odd(j) then s:=s+(ord(t[j])-48);
    if s=n then k:=k+1;
  end;
  writeln(k);  
end.

@Александра2307 0 / 0 / 0 Регистрация: 25.04.2015 Сообщений: 69
		1
	Определить количество M-значных натуральных чисел, у которых сумма цифр равна заданному значению 24.06.2015, 08:46. Показов 2174. Ответов 1 Метки нет (Все метки) Определить количество M-значных натуральных чисел, у которых сумма цифр, стоящих в нечетных разрядах, равна $https://www.cyberforum.ru/cgi-bin/latex.cgi?N (1 \leq N \leq 30, 0 < M < 5).$ 0

	24.06.2015, 09:42

Определить количество M-значных натуральных чисел, у которых сумма цифр равна заданному значению

Решение