program test;
var
x,t-0,t-5,r : integer;
begin
write('enter a number:');
readln(x);
t-0:=0;
t-5:=0;
while (x<>0) do
begin
r:=x mod 10;
if (r=0) then
t-0:=t-0+1
else
if (r=5) then
t-5:=t-5+1;
end;
write(t-0,t-5:4);
readln
end
منبع: www.parsigold.com
var
x,t-0,t-5,r : integer;
begin
write('enter a number:');
readln(x);
t-0:=0;
t-5:=0;
while (x<>0) do
begin
r:=x mod 10;
if (r=0) then
t-0:=t-0+1
else
if (r=5) then
t-5:=t-5+1;
end;
write(t-0,t-5:4);
readln
end
منبع: www.parsigold.com
