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

Question

Информатика

Талюша

8 июля, 19:16

Целой переменной 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.