давно
Старший Модератор
31795
6196
16.05.2008, 23:08
общий
это ответ
Здравствуйте, Cobain!
Программа в приложении.
Код простой, поэтому в комментариях нет необходимости.
Удачи!
Приложение:
var a,b:integer; c:file of integer;begin assign(c,‘q136464.dat‘); rewrite(c); for a:=1 to 25 do begin b:=random(300); write(c,b); end; reset(c); while not(eof(c)) do begin read(c,a); write(a:16); end; close(c);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.