Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0<=a<=8) - Pascal(Паскаль)

var
  i, d, a, OneDigit: integer;
 
begin
  write('Введите число:');
  read(i);
  write('Введите a: ');
  read(a);
  if (a >= 0) and (a <= 8) then
  begin
    d := 0;
    repeat
      OneDigit := i mod 10; //Берём остаток от деления числа на 10
      if onedigit > a then //Проверяем цифру в переменной OneDigit 
        d := d + OneDigit; //Оставляем число, делённое на 10 - отбрасываем правую цифру
      I := i div 10;
    until I = 0;
    writeln('Сумма цифр заданого числа равна:');
    write(d);
  end;
end.

Leave a Comment

6 + 1 =