Показать сообщение отдельно

  #2568  
Старый 25.03.2010, 19:03
Bengl
Новичок
Регистрация: 13.09.2009
Сообщений: 5
С нами: 8769157

Репутация: 0
По умолчанию

"В диапозоне от А до В найти все числа в которых не встречается цифра 6".

PHP код:
program odin
var 
a,b,c,d,f:integer
begin 
writeln
('Введите первое число диапозона'); 
read(a); 
writeln('Введите второе число диапозона'); 
read(b); 
 for 
c:=a to b do 
 
begin 
 d
:=c mod 10
 
f:=c div 10
 if (
f<>6) and (d<>6then 
 write
(c); 
 
end
 
end
Этот код работает не для всех диапозонов... если взять от 1000 до 2000. То там будут цифры 6.

Как можно реализовать работу программы для любых диапозонов ?
 
Ответить с цитированием