НАЙТИ ОШИБКИ И ИСПРАВИТЬ,И ЗАПОЛНИТЬ ПРОПУСКИ Вычислить сумму цифр заданного 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;
НАЙТИ ОШИБКИ И ИСПРАВИТЬ,И ЗАПОЛНИТЬ ПРОПУСКИ Вычислить сумму цифр заданного 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;
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Var k : integer; n: Double;
Begin
writeln('Введите количество цифр k:');
readln(k);
writeln('Введите число:');
readln(n);
case k of
1 : writeln ('сумма цифр:', trunc(n));
2 : writeln ('сумма цифр:', trunc(n / 10) + (trunc(n) mod 10));
3 : writeln ('сумма цифр:', trunc(n / 100) + ((trunc(n) div 10) mod 10) + (trunc(n) mod 10));
4 : writeln ('сумма цифр:', trunc(n / 1000) + ((trunc(n) div 100) mod 10) + ((trunc(n) div 10) mod 10) + (trunc(n) mod 10));
end;
End.