Question

Целой переменной s присвоить сумму цифртрехзначного числа К. Пожалуйста с хорошим оформлением. необходимо выполнить операцию присваивания.

Answer 1

var s,k:integer;

Begin

    read(k);

    s:= k div 100 + k div 10 mod 10 + k mod 10;

    writeln(s);

End.