Найти ошибки и исправить,и заполнить пропуски вычислить сумму цифр заданного 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;

belovworms2003p0af24    3   25.06.2019 23:50    0