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

НАЙТИ ОШИБКИ И ИСПРАВИТЬ,И ЗАПОЛНИТЬ ПРОПУСКИ Вычислить сумму цифр заданного 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;