Целой переменной s присвоить сумму цифр трехзначного числа К,вводимого с клавиатуры
Нет комментариев
Ответы
Гость Var K, S: integer;
begin
write('Введите число: '); readln(K);
while K > 0 do
begin
S := S + K mod 10;
K := K div 10
end;
writeln('Сумма цифр = ', S);
end.
Нет комментариев
Похожие вопросы
Информатика
Дана последовательность прлизвольных символов, подсчитать количество цифр в этой последовательности....
Информатика
Помогите пожалуйста срочно10 баллов...
Информатика
5.1 или 5.2 и + 6 20 баллов...
Список предметов
