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