решить задачу с помощью разработанной для этого программы.
Особое внимание обратить на алгоритм
Сколько чисел между 1000 и 100000 состоят из нечетных цифр, а сколько из различных цифр?
|
|
|
|
Код идиотский, зато рабочий:)
var
s,i,a,p:longint;
begin
p:=0;s:=0;
for i:=1000 to 100000 do begin
if i<10000 then begin
if (i div 1000 mod 2<>0)and(i div 100 mod 10 mod 2<>0)and
(i div 10 mod 10 mod 2<>0)and(i mod 10 mod 2<>0) then s:=s+1;
if (i div 1000>i div 100 mod 10)and(i div 1000<>i div 10 mod 10)and
(i div 1000<>i mod 10)and(i div 100 mod 10<>i div 10 mod 10)and
(i div 100 mod 10<>i mod 10)and(i div 10 mod 10<>i mod 10) then p:=p+1;
end;
if i>10000 then begin
if (i div 10000 mod 2<>0)and(i div 1000 mod 10 mod 2<>0)and
(i div 100 mod 10 mod 2<>0)and(i div 10 mod 10 mod 2<>0)and(i mod 10 mod 2<>0)
then s:=s+1;
if (i div 10000<>i div 1000 mod 10)and(i div 10000<>i div 100 mod 10)and
(i div 10000<>i div 10 mod 10)and(i div 10000<>i mod 10)and
(i div 1000 mod 10<>i div 100 mod 10)and(i div 1000 mod 10<>i div 10 mod 10)and
(i div 1000<>i mod 10)and(i div 100<>i div 10 mod 10)
and(i div 100 mod 10<>i mod 10)and(i div 10 mod 10<>i mod 10) then p:=p+1;
end;end;
writeln(s);
writeln(p);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
