1)можно ли поместить файл размером 0, 35 гигабайт на носитель, на котором свободно 365000килобайт? решение: 2)впиши знаки < , > или = 49 байт 1536 , 5 кбайт 12 байт 8192 кбайт 1024 мбайт=

0.35*1024*1024=367001,6, то есть не поместится. 2) 49 бит > 7 байт 1536 бит = 1.5 кбайт 12 кбайт < 12298 байт 8192 байта > 1 кбайт 1024 мбайт = 1 гбайт

Можно конечно разместить на носителе.

Паскаль авс: program  ainur59; uses crt; const n=10; var   i,j: integer;   matr: array[1..n,1..n] of integer;   diag: array[1..n] of integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln('для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов');   randomize;   writeln('матрица: ');   for i: =1 to n do   begin       for j: =1 to n do       begin           matr[i,j]: =random(100)-50;           write(matr[i,j]: 4,' ');           if i=j then diag[i]: =matr[i,j];       end;       writeln();   end;   writeln();   writeln('mассив диагональных элементов: ');   for i: =1 to n do       write(diag[i]: 4,' '); end.

Var summ, i: integer; begin summ: =0; for i: =21 to 99 do if (i mod 3)=0 then summ: =summ+i; write ('сумма чисел кратных трём= ',summ); end. var summ, i: integer; begin i: =21; sum: =0; while (i< 100) do begin   if (i mod 3)=0 then summ: =summ+i;   i: =i+1;   end; write ('сумма чисел кратных трём= ',summ); end. var summ, i: integer; begin i: =21; summ: =0; repeat   if (i mod 3)=0 then summ: =summ+i;   i: =i+1;   until (i> =100); write ('сумма чисел кратных трём= ',summ); end.