Âûâåñòè íà ýêðàí âñå òð¸õçíà÷íûå ÷èñëà, ñîñòîÿùèå èç íå÷¸òíûõ öèôð è ñîñ÷èòàòü èõ êîëè÷åñòâî.
Uses CRT;
Var i,j,k : byte;
s : word;
Begin
ClrScr;
s := 0;
i := 1;
while i <= 9
do
begin
j := 1;
while j <=
9 do
begin
k := 1;
while k
<= 9 do
begin
write(i,j,k,
' ');
inc(s);
k
:= k + 2;
end;
j := j
+ 2;
end;
i := i + 2;
end;
writeln;
writeln(s);
End.