Целой переменной s присвоить сумму цифр трехзначного числа К, вводимого с клавиатуры

Question

Информатика

Аскольд

19 ноября, 11:12

Целой переменной s присвоить сумму цифр трехзначного числа К, вводимого с клавиатуры

+5

Ответы (1)

Знаешь ответ?

Леха · Answer 1

Var K, S: integer;

begin

write ('Введите число: '); readln (K);

S : = (k div 100) + ((k mod 100) div 10) + (k mod 10);

writeln ('Сумма цифр = ', S);

end.