Подсчет цифр в числе и суммирование этих чисел

@2ешник · Регистрация: 10.05.2010

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

Ребята помогите наченающему с задачей!
Подщетать количество n-значных натуральных чисел,в которых сумма цифр непарная, а младшая цифра - парная.

Проверку на парность младшого числа я зделал!

Delphi

 
var
n,m:integer;
 
      begin
 
        if length(Form1.Edit1.Text)=0 then
          begin
            ShowMessage('проверте значеия!');
            exit;
          end;
 
        n:=StrToInt(Edit1.Text);
 
         begin            
         m:=n mod 10;
          if m=0 then
            begin
              ShowMessage('младшая цифра 0');
              exit;
            end;
          if m mod 2 <>0 then
            begin
              ShowMessage('младшая цифра непарная!');
              exit;
            end;
          end;
........

Как быть дальше???

	10.05.2010, 18:49