Warcraft 3 "Rubattle.net Dota 3x3 -sd Summer 2020 Tournament" 4,090KB
Warcraft 3 "Защита базы с выбором персонажа сложные Триггеры" 70KB
StarCraft "Escape from space base 2" 440KB
Warcraft 3 "Hunter or Victim 0.92 Rus" 7,992KB
Warcraft 3 "TFT подборка 25 карт [Awesomealldays] (Rus|Verm)" 82,629KB
Warcraft 3 "Набор карт Crisis (БагатыеРудники) v.1.0 от Мав Исяня" 9,696KB
Warcraft 3 "Rubattle.net Warcraft 3 TFT 1x1 Random Races Tournament 2020" 2,344KB
Warcraft 3 "Ragnarok" 1,058,343KB
Warcraft 3 "Rubattle.net WarCraft 3 TFT 1v1 Tournament 2020" 4,092KB
Warcraft 3 "Набор карт IllusionIsla (БагатыеРудники) v.1.0 от Мав Исяня" 17,738KB
Warcraft 3 "Защита базы с выбором персонажа сложные Триггеры" 70KB
StarCraft "Escape from space base 2" 440KB
Warcraft 3 "Hunter or Victim 0.92 Rus" 7,992KB
Warcraft 3 "TFT подборка 25 карт [Awesomealldays] (Rus|Verm)" 82,629KB
Warcraft 3 "Набор карт Crisis (БагатыеРудники) v.1.0 от Мав Исяня" 9,696KB
Warcraft 3 "Rubattle.net Warcraft 3 TFT 1x1 Random Races Tournament 2020" 2,344KB
Warcraft 3 "Ragnarok" 1,058,343KB
Warcraft 3 "Rubattle.net WarCraft 3 TFT 1v1 Tournament 2020" 4,092KB
Warcraft 3 "Набор карт IllusionIsla (БагатыеРудники) v.1.0 от Мав Исяня" 17,738KB
С наступающим новым годом! (2)
sorceress lightning infinity build by nrita (75)
Вопрос по ФО сорке (19)
Quest kill? (9)
O infiniti gp 322 (3)
Need list / offer (периодически обновляется) (29)
N rare пояс [sc] (0)
Удалил игрока (5)
даю vex за трек (18)
вопрос про фпс (12)
PVP на 30 лвл нс за LO (6)
Восстановление маны в шмотках (27)
Normal/ Кому то нужен Cathan's Seal ? (2)
Респек скиллов в мультиплейере (8)
Отвлечься на секунду от обсуждения pvp, postroykas и прочих ботоводов. (190)
Нужна Сылочка!!!!!!!(diablo 2 resurrection) (4)
где скачать рабочую версию D2 LoD? (4)
Альтернативный клиент (356)
ресурректед (85)
Неожиданный дроп 2021 (171)
sorceress lightning infinity build by nrita (75)
Вопрос по ФО сорке (19)
Quest kill? (9)
O infiniti gp 322 (3)
Need list / offer (периодически обновляется) (29)
N rare пояс [sc] (0)
Удалил игрока (5)
даю vex за трек (18)
вопрос про фпс (12)
PVP на 30 лвл нс за LO (6)
Восстановление маны в шмотках (27)
Normal/ Кому то нужен Cathan's Seal ? (2)
Респек скиллов в мультиплейере (8)
Отвлечься на секунду от обсуждения pvp, postroykas и прочих ботоводов. (190)
Нужна Сылочка!!!!!!!(diablo 2 resurrection) (4)
где скачать рабочую версию D2 LoD? (4)
Альтернативный клиент (356)
ресурректед (85)
Неожиданный дроп 2021 (171)
Альянс
Орда
Нежить
Ночные Эльфы
Нейтральные
Видео
Реплеи
Карты
DotA Allstars
Ресурсы
Панель команд юнитов
Файлы
Турниры
Статистика
Форум
Видео
Персонажи
Колдун
Варвар
Чародей
Монах
Охотник на демонов
Спутники
Карта Мира
Система навыков
Руны
Файлы
Форум
Продам Аниксы на любой вкус.НЕ ДОРОГО.
ZakarumFoot
6 сентября 2012 в 09:46
var
f_in: text;
f_out: file;
name_in, name_out: string;
buffer: array[1..8] of integer;
i,k: integer;
begin
{$I-}
write('Входной файл: ');readln(name_in);
assign(f_in,name_in);
reset(f_in);
if IOResult <> 0 then begin
writeln ('Файл не найден!');
exit
end;
write('Выходной файл: ');readln(name_out);
assign(f_out,name_out);
rewrite(f_out,sizeof(integer)*8);
{$I+}
i := 0;
while not eof(f_in) do begin
inc(i);
read(f_in,buffer);
if i = 8 then begin
blockwrite(f_out,buffer,1);
i := 0
end;
end;
if i <> 0 then begin
for k:=i+1 to 8 do buffer[k] := 0;
blockwrite(f_out,buffer,1);
end;
close(f_in);
close(f_out);
readln
От Ло Вех.Писать в личку