ИМ
Иван Марков
Помогите составить программу в Паскале пожалуйста
Нужно подсчитать сумму цифр в числе, введенном с клавиатуры, но пользуясь способами либо с for, либо с while, либо с repeat
Нужно подсчитать сумму цифр в числе, введенном с клавиатуры, но пользуясь способами либо с for, либо с while, либо с repeat
var k,i,s:integer;
begin
readln(k);
i:=0;
while k mod 10 <> 0 do
begin
i:= k mod 10;
s:=s+i;
k:= k div 10;
end;
writeln(s);
end.