Файл размером 15 Кбайт передаётся через некоторое соединение 21 секунду. Сколько секунд будет передаваться через это же соединение файл размером 5120 байт?В ответе укажите одно число – размер файла в Кбайт. Единицы измерения писать не нужно.
Program matr; uses crt; const m=(число); n=(число); var a:array[1..m,1..n] of integer; i, j:integer; max:real; k:boolean;
function prost(x:integer):boolean; begin prost:=false; if x>0 then if (x=1) or (x=2) then prost:=true else for i:=2 to x-1 do if mod(x, i) =0 then prost:=true; end;
begin clr scr;
for i:=1 to m do begin for j:=1 to n do begin write(' a[i,j] = '); read(a[i, j]) end; writeln end;
max:=abs a[1,1]; k:=false; for i:=1 to m do for j:=1 to n do begin if abs(a[i, j]) > abs(max) then max:= a[i, j]; if prost(a[i, j]) then k:=true end; writeln('Максимальный по модулю элемент равен ', max); if k then wrteln('Матрица содержит хотя бы один простой элемент') else writeln('Матрица не содержит простых элементов'); readln end.
1) var e:array[1..11]of integer; i,k:integer; begin for i:=1 to 11 do begin e[i]:=random(17)-15; write(e[i],' '); if e[i] mod 5=0 then k:=k+1; end; writeln; write('kol-vo elem krat 5:',k); end. 2) var e:array[1..8]of integer; i,s,k:integer; begin for i:=1 to 8 do begin e[i]:=random(20)+1; write(e[i],' '); if e[i] mod 2=1 then s:=s+e[i]; if e[i] mod 3=0 then k:=k+1; end; writeln; writeln('summa nechet elem:',s,' kol-vo elem krat trem:',k); end. 3) var e:array[1..14]of integer; i:integer; begin write('nachalni massiv:'); for i:=1 to 14 do begin e[i]:=random(21)-10; write(e[i],' '); end; writeln; write('izmeneni massiv:'); for i:=1 to 14 do begin if e[i]<0 then e[i]:=0 else e[i]:=e[i]*(-1); write(e[i],' '); end; end.
7
Объяснение:
21×5/15=7