<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
Var
a, b: integer;
begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
<span>end.
=======================
var
a, b, e: integer;
d: string;
begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
<span>end.</span></span>
Компьютерные программы используют все везде и всегда
Генерирую массив потом вывожу в столбики,n-константа которую ты выбираешь внезависимости от размера желаемого массива
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=7;
var a:array [0..n] of integer;
i:integer;
begin
randomize;
for i:=0 to n do
a[i]:=Random(100);
Writeln('X F(X)');
for i:=0 to n do
begin
if i mod 2 <> 0 then Continue;
write(a[i],' ',a[i+1]);
Writeln;
end;
readln;
end.
Объем видеопамяти равен 512 Кбайт = 524288 байт = 4194304 битразрешающая способность дисплея 800x600= 480000 точекв одну точку можно "загрузить" -1 цвет= 4194304 бит / 480000 точек = 8,738133333333333 = 8 битзначит количество цветов 2^8=256Ответ 256 цветов