Для тех, кто увлекается программированием и быстро читает данный блог скорее всего станет любопытно помимо прочего полистать блог пхп разработчика очень-то программного обеспечения. В самом деле а покуда подозрительно осмотрим программирование на языке Pascal.

Следующая проблема была установлена в виде лабораторной рпботы. Видимо записать в файл поочередного доступа N весьма случайных прямо-таки естественных количеств. Действительно окончательно переписать в иной файл методичного доступа те составляющие, которые кратны К. Вот решение на Паскале.

var f1, f2: file of byte; i, j, b:byte; const n=10; k=3; begin assign(f1,’1.bin’); rewrite(f1); for i:=1 to n do begin seek(f1,i); write(f1,random(10)+1); //подробно пишем n просто-таки случайных количеств в файлend; close(f1); reset(f1); // добросовестно раскрывает для чтения/ записи - возможно даже при отсутствии данных двух строчекassign(f2,’2.bin’); rewrite(f2); i:=0; j:=0; for j:=1 to n do begin seek(f1,j); // попутно лениво двигаемся из начала в конецread(f1,b); // и читаем егоif b mod k = 0 then //ежели остаток от дробления b на k = 0 то… begin inc(i); seek(f2,i); // повышаем объем новейшего файлаwrite(f2,b); //и записываем туда это b end; end; close(f1); close(f2); end.

По-видимому всегда было так, что очень-то офисный переезд проще немедленно не начинать. Но время от времени жизнь принуждает сердито подумать и про это.

Если ваши воспитанники заболели, мало-мальски важна поддержка профессионала. Более того если вы чрезвычайно заняты, то комфортно станет устроить вызов ветеринара напрямик на дом.