Можно ли записать 17 видеороликов размером 490 мбайт на флешку размером 8 гбайт? (оформить в виде ) !

Нет

17×490=8330 мбайтов

размер флешки 8 гбайт=8000мбайт

8330-8000=330 мбайтов не хватает

ОТВЕТ: НЕТ

1)

var

a,b:array [1..100] of integer;

i,j,k,a,b,f:integer;

begin

randomize;

readln(a);

readln(b);

k:=0;

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

f:=0;

for j:=a to b do

if (a[i]=j) and (a[i] mod 7 =0) then f:=1;

if f=0 then

begin

k:=k+1;

b[k]:=a[i];

end;

end;

for i:=1 to k do

writeln(b[i]);

end.

2)

var

a,b:array [1..100] of integer;

i,j,k:integer;

begin

randomize;

readln(k);

j:=0;

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

writeln(a[i]);

for i:=1 to 19 do

begin

if a[i]*a[i+1]>0 then

begin

j:=j+1;

b[j]:=a[i];

j:=j+1;

b[j]:=k;

end

else

begin

j:=j+1;

b[j]:=a[i];

end;

end;

j:=j+1;

b[j]:=a[20];

for i:=1 to j do

writeln(b[j]);

 

3)

var

a,b:array [1..20] of integer;

i,j,k1,k2:integer;

begin

randomize;

readln(k1);

readln(k2);

if k1<k2 then

begin

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

writeln(a[i]);

end;

for i:=1 to k1-1 do

b[i]:=a[i];

for i:=k2+1 to 20 do

b[i]:=a[i];

j:=k2;

for i:=k1 to k2 do

begin

b[j]:=a[i];

j:=j-1;

end;

for i:=1 to 20 do

writeln(b[i]);

end;

end.

 

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ArrGen(8,i->Ln(i+1.1)); x.Println;
  var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count;
  var im:=x.IndexMin;
  Writeln('На указанном интервале найдено элементов: ',k);
  Writeln('Минимальный элемент массива, равный ',x[im],
      ' имеет порядковый номер ',im+1)
end.

Результат
0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839
На указанном интервале найдено элементов: 0
Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1