28800 бит/с = 3600 байт = 3,515625 Кб
Ответ: <span>а)3600 байт</span>
Инверсией будет высказывание: "Сканер не вводит рисунки или принтер не печатает"
Var a: array [1..8] of integer;
i: integer;
begin
for i := 1 to 8 do
readln(a[i]);
for i := 8 downto 1 do
writeln(a[i]);
<span>end.
Вот так)</span>
Program Program1;
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
Writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
for i:=1 to 10 do
if i mod 2 = 0 then a[i]:=sqr(a[i]);
Writeln('Преобразованный массив: ');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.
Uses crt;
var
i,a:integer;
begin
for i:=1 to 16 do
begin
textcolor(i);
a:=random(50);
write(a);
sound(I*100);
delay(5000);
nosound;
end;
readkey;
end.<span>
</span>