begin for a := 1000 to 9999 do begin c1 := a div 1000; c2 := (a div 100) mod 10; c3 := (a div 10) mod 10; c4 := a mod 10; if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4) then writeln(a); end; end.
Один раз я с семьей решили поехать в лес. (Суда ты пишешь что в лесу был пикник ну или что-то другое и пишешь что ты туда взял(а) но это не обязательно)) . И в лесу была узкая тропинка я пошла по ней , а потом за ним была большая дверь, которая вела вела в прекрасный сад.В саду была речка и много деревьев, я прогулялась по саду.И в саду я нашла очки и я посмотрела по сторонам но никого не было. (Потом ты пишешь суда что я узнала что это очки времени и я куда то попала и все )).
PGPдиск можно подключать для работы с ним (в этом случае он будет отображаться в окнеМой компьютервместе с остальными дисками) и отключать по окончании работы. 1. В меню PGPвыполнить командуMount Disk (подключить диск).
2. В окне обзора найти файл, соответствующий вашему PGPдиску и щелкнуть по нему левой клавишей мыши. НажатьEnter.
3. Ввести парольную фразу.
В результате этих действий в окне Мой компьютер отобразится PGPдиск с тем именем, которое вы ему присвоили. С ним можно работать как с обычным диском: создавать файлы, каталоги, перемещать и копировать файлы или каталоги, либо удалять их. После того, как работа с конфиденциальной информацией закончена, необходимо отключить диск. После отключения диска его содержимое будет зашифровано в файле.
Установите параметры, созданного Вами PGP диска: автоматически отключать через 1 минуту бездействия. Откройте окно Мой компьютер и проследите отключение диска.
var
a: integer;
c1, c2, c3, c4: integer;
begin
for a := 1000 to 9999 do
begin
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4)
then writeln(a);
end;
end.