25.03.2010, 19:24
|
|
Новичок
Регистрация: 26.11.2009
Сообщений: 20
Провел на форуме:
88440
Репутация:
60
|
|
Сообщение от Bengl
"В диапозоне от А до В найти все числа в которых не встречается цифра 6".
Вообще-то "говно-код", но будет работать. 
Код:
program odin;
var a,b,c,d,f:integer;
tmp:string;
begin
writeln('Введите первое число диапозона');
read(a);
writeln('Введите второе число диапозона');
read(b);
for c:=a to b do
begin
tmp:=inttostr(c);
if pos(inttostr(6),tmp)=0 then
writeln(c);
end;
readln;
readln;
end.
Последний раз редактировалось Pr0mo; 25.03.2010 в 19:32..
|
|
|