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));