Răspuns:
pentru punctu a)
p:=0;
for i:=1 to n do
if (x>=1) and (x<=9) the p:=p+1;
pentru punctu b)
p:=0;
for i:=1 to n do
begin
if (x>=1) and (x<=9) then
begin
case x of '2','4','6','8': p:=p+1;
end;
end;
pentru punctu c)
p:=0;
for i:= 1 to n do begin
if (x>=1) and (x<=9) then
begin
case a of '1','3','5','7',9': p:=p+1;
end;
end;
Explicație:
spor !