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

Question

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

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.