Новый(?) куайн на Паскале. New quine on Pascal

Автор: | 22/04/2010

var i:byte;
begin
randomize;
for i:=1 to 87 do write(chr(random(68)+10));
end.

В первом варианте программы аргументом для Chr были элементы целочисленного массива. Прошло 20 лет(программа писалась в студенческие годыы). Решил её в учебных целях восстановить. И тут подумалось а где в постановке задачи сказано, что программа должна выводить требуемое при каждом запуске?! 🙂

Новый(?) куайн на Паскале. New quine on Pascal: 3 комментария

    1. Ruslan Автор записи

      begin
      randomize;
      repeat
      write(chr(random(80));
      until keypressed;
      end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Это не спам.