18) В
19) Г (моржу)
20) Б (Г6)
<u>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('N=');
var f,g:file of integer;
ReWrite(f,'f.bin');
Randomize;
for var i:=1 to n do Write(f,Random(101)-50); // [-50;50]
Seek(f,0);
ReWrite(g,'g.bin');
var a,b:integer;
Writeln('Содержимое файла f');
Read(f,a); Write(a,' ');
while not f.Eof do begin
Read(f,b);
Write(b,' ');
Write(g,a*b);
a:=b
end;
f.Close;
Writeln;
Writeln('Содержимое файла g');
Seek(g,0);
while not g.Eof do begin Read(g,a); Write(a,' ') end;
g.Close
end.
<em>Пример</em>
N= 15
Содержимое файла f
43 14 -8 30 -50 -21 -15 -19 -19 -32 22 23 -36 19 -43
Содержимое файла g
602 -112 -240 -1500 1050 315 285 361 608 -704 506 -828 -684 -817
Поля для ввода, иконки в средах программирования, кнопки и т.д
В них вводится текст. А также с помощью диалоговых окон можно осуществлять общение юзера и системы.
650 ПЕРЕВЕСТИ В КБ И ДЕЛИТЬ НА 3072
650x1024=665600
665600/3072=216,6сек
216,6/60=3,61мин
Слева то что получилось, справа исходное изображение, внизу таблица соответствия цветов двоичным кодам.
Можно использовать и другие цвета, главное чтобы у разных двоичных кодов были разные двоичные цвета.