Question

НАЙТИ ОШИБКИ И ИСПРАВИТЬ,И ЗАПОЛНИТЬ ПРОПУСКИ Вычислить сумму цифр заданного k -значного числа Var k : 1..4; n: Double; Begin writeln('Введите количество цифр k:'); readln(k); writeln('Введите число:'); readln(n); case k of 1 : writeln ('сумма цифр:', _____); 2 : writeln ('сумма цифр:', (n div 10) + (n mod 10)); 3 : writeln ('сумма цифр:', _______________________); 4 : writeln ('сумма цифр:', (n div 1000)+ (n div 10 mod 10)+(n div 10 mod 10) + (n mod 10)); end;

Answer 1

1 : writeln ('сумма цифр:',  k + n);
2 : writeln ('сумма цифр:', (n div 10) + (n mod 10));
3 : writeln ('сумма цифр:', k + k);
4 : writeln ('сумма цифр:', (n div 1000)+ (n div 10 mod 10)+(n div 10 mod 10) + (n mod 10));

Answer 2

Давайте исправим и заполним пропуски в вашем коде:

pascalCopy code
Var
  k: Integer;
  n: Integer; // Изменим тип переменной n на Integer, так как мы работаем с целыми числами
  sum: Integer; // Добавим переменную для хранения суммы цифр
Begin
  writeln('Введите количество цифр k:');
  readln(k);
  writeln('Введите число:');
  readln(n);

  sum := 0; // Инициализируем сумму нулем

  case k of
    1: sum := n;
    2: sum := (n div 10) + (n mod 10);
    3: sum := (n div 100) + ((n div 10) mod 10) + (n mod 10);
    4: sum := (n div 1000) + ((n div 100) mod 10) + ((n div 10) mod 10) + (n mod 10);
  else
    writeln('Некорректное значение k');
  end;

  writeln('сумма цифр:', sum);
End.

Изменения и исправления:

1. Изменил тип переменной n на Integer, так как мы работаем с целыми числами.
2. Добавил переменную sum для хранения суммы цифр.
3. Инициализировал сумму нулем перед использованием.
4. В каждой ветви case вычислял сумму цифр в соответствии с количеством цифр в числе.
5. Добавил обработку некорректных значений k.

Теперь код должен работать корректно для заданных условий.