На диску об’ємом 700 Мбайт міститься 5 файлів загальним об’ємом 400 Кбайт. Визначити скільки вільного місця залишиться на диску, якщо на нього дописати файли об’ємом 40 Кбайт та 0, 4 Мбайт?

ответ: 697,56 Мбайт вільного місця

Объяснение:

5 * 400 Кбайт = 2000 Кбайт = 2 Мбайт700 Мбайт - 2 Мбайт = 698 Мбайт40 Кбайт = 0.04 Мбайт698 Мбайт - 0.04 Мбайт = 697.96 Мбайт697.96 Мбайт - 0.4 Мбайт = 697,56 Мбайт

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

Program prog1;
Uses crt;
var a: array [1..50] of integer;
    k, i: integer;
begin
clrscr; randomize;
for i:=1 to 50 do
begin
a[i]:= random(41);
write(a[i],'  ');
if a[i]=23 then inc(k);
end;
writeln;writeln; writeln('k = ',k);
end.

Program prog2;
Uses crt;
var a: array [1..50] of integer;
    i: integer;
begin
clrscr; randomize;
for i:=1 to 50 do
begin
a[i]:= random(41);
write(a[i],'  ');
if (a[i] mod 5) =0 then a[i]:=-1;
end;
writeln;writeln;
for i:=1 to 50 do
write(a[i],'  ');
end.

Program prog3;
Uses crt;
var a: array [1..10] of integer;
    tmp, i: integer;
begin
clrscr; randomize;
for i:=1 to 10 do
begin
a[i]:= random(41);
write(a[i],'  ');
end;
tmp:=a[2];
a[2]:=a[9];
a[9]:=tmp;
writeln;writeln;
for i:=1 to 10 do
write(a[i],'  ');
end.

Program prog4;
Uses crt;
var a: array [1..100] of integer;
    n, i,k: integer;
begin
clrscr; randomize;
write('N = ');
readln(n);
for i:=1 to n do
begin
a[i]:= random(41);
write(a[i],'  ');
end;
writeln;writeln;
for i:=1 to n-1 do
if ((a[i] mod 10)=2)and((a[i+1] mod 10)=2) then inc(k);
writeln('k = ', k);
end.