Найти сумму целого числа больше 5 в Паскале. Помогите пожалуйста!! Заранее спасибо))
Найти сумму целого числа больше 5 в Паскале. Помогите пожалуйста!! Заранее спасибо))
Гость
Ответ(ы) на вопрос:
ГостьПрограмму из комментариев переписал для паскаля.
var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
end.
Не нашли ответ?
Похожие вопросы