Наука «Информатика» изучает информацию, компьютер, алгоритмы, информационный процесс.
———
Так что больше всего подходит 1 вариант —
Информация.
Если писать на QBasice то будет примерно так:
1. DIT a(i)
4. IF i = 0 THEN 11
6. IF i > 0 THEN 13
7. IF I < 0 THEN 15
10. END.
<span>11. PRINT i
</span>12. END.
<span>13. PRINT i
</span>14. END.
<span>15. PRINT i
</span>16. END
<span>Могу ошибаться) Точно не могу написать..</span>
2. uses GraphABC;
begin
Pie(100, 50, 70, 270, 360);
<span>end.
3. </span>uses GraphABC;
begin
Draw(x -> 2 * cos(x), -pi, pi);
<span>end.
4. </span>uses GraphABC;<span>
begin
Draw(x -> cos(x), -10, 10);
Draw(x -> sin(x), -8, 8);
<span>end.
</span>5. </span>uses GraphABC;
begin
Brush.Color := clRandom;
Pie(200, 200, 100, 0, 170);
Brush.Color := clRandom;
Pie(200, 200, 100, 170, 270);
Brush.Color := clRandom;
Pie(200, 200, 100, 270, 300);
Brush.Color := clRandom;
Pie(200, 200, 100, 300, 330);
Brush.Color := clRandom;
Pie(200, 200, 100, 320, 333);
Brush.Color := clRandom;
Pie(200, 200, 100, 333, 360);
<span>end.
С цветами, думаю, сам разберешься</span>
Const
n = 20;
var
i, e: integer;
f: file of integer;
begin
Randomize;
Assign(f, 'output.txt');
Rewrite(f);
writeln('Исходный файл');
for i := 1 to n do
begin
e := Random(20) - 10;
write(f, e);
write(e:4)
end;
Close(f);
Reset(f);
writeln;
writeln('Обработанный файл');
i := 0;
while not Eof(f) do
begin
read(f, e);
i := i + 1;
if i mod 2 <> 0 then begin
seek(f, i-1);
write(f, 1);
seek(f, i-1);
read(f, e)
end;
write(e:4)
end
end.
Тестовое решение:
Исходный файл
-6 4 -3 -7 6 -1 -4 8 -7 -5 5 -10 5 -1 -9 -7 -5 -1 9 8
Обработанный файл
1 4 1 -7 1 -1 1 8 1 -5 1 -10 1 -1 1 -7 1 -1 1 8
