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

Question

Информатика

Давыд

9 мая, 03:34

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

+1

Ответы (1)

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

Андроника · Answer 1

Var K, S: integer;

begin

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

while K > 0 do

begin

S : = S + K mod 10;

K : = K div 10

end;

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

end.