Дано естественное число найти сумму цифр в числе кратных 5. составить

Ответ:

Объяснение:

program crat_05;

var n,p:longint;

   c,k:byte;

begin

write('Введите натуральное число n=');

readln(n);

p:=1;

k:=0;

while ngt;0 do

begin

 c:=n mod 10;

 if c mod 5=0 then

  begin

   k:=1;

   p:=p*c;

  end;

 n:=n div 10;

end;

if k=0 then write('Нет цифр, кратных 5')

else write('Творенье цифр, кратных 5=',p);

readln

end.