для н=1000 по 9999 цикл
стр = формат(н, "чрг=; чг=");
ч1 = лев(стр,1);
ч2 = сред(стр,2,1);
ч3 = сред(стр,3,1);
ч4 = прав(стр,1);
если не (ч1 = ч2 или ч1 = ч3 или ч1 = ч4 или ч2 = ч3 или ч2 = ч4 или ч3 = ч4) тогда
сообщить(н);
конецесли;
конеццикла;
Поделитесь своими знаниями, ответьте на вопрос:
Написать алгоритм " как построить скворечник"