реализуйте решение задачи программируя на Паскале. вводится натуральное трехзначное число N и натуральное число k. найти сумму тех цифр числа N, которые больше k

1

Ответы и объяснения

2014-03-16T22:43:21+04:00
Var n,k,s:integer;
begin
writeln('input n,k');
readln(n,k);
s:=0;
while n<>0 do 
begin  
if n mod 10>k then s:=s+n mod 10; 
n:=n div 10; 
end;
writeln('s=',s);
end.