Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » решить задачу с помощью разработанной для этого программы.
решить задачу с помощью разработанной для этого программы.
решить задачу с помощью разработанной для этого программы.
Особое внимание обратить на алгоритм

Сколько чисел между 1000 и 100000 состоят из нечетных цифр, а сколько из различных цифр?
1 | Автор: Карасик | 2012-02-09, 19:24   |  Репутация: [ + 0 ]
1 | Автор: Карасик | 2012-02-09, 19:24   |  Репутация: [ + 0 ]
Код идиотский, зато рабочий:)

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
2 | Автор: Berestovskiy | 2012-02-11, 16:24   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » решить задачу с помощью разработанной для этого программы.
Страница 1 из 11
Поиск: