Const n=4; m=5; var a:array[1..n,1..m] of integer; i,j:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(1000); write(a[i,j]:4); end; writeln; end; for i:=1 to n do for j:=1 to m do if (a[i,j] mod 7=0)and(a[i,j]>99)and(a[i,j]<1000) then a[i,j]:=a[i,j]-10; writeln('New:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; end.
Const N = 3; M = 4; Var T:array[1..N,1..M] of integer; i,j:integer; Begin Randomize; WriteLn('Было:'); For i:= 1 to N do Begin For j:= 1 to M do Begin T[i,j]:=random(3000); Write(T[i,j]:6,' '); if (99 < T[i,j])and(T[i,j]<1000)and(T[i,j] mod 7 = 0) then T[i,j]:=T[i,j]-10; End; WriteLn End; WriteLn('Стало:'); For i:= 1 to N do Begin For j:= 1 to M do Write(T[i,j]:6,' '); WriteLn End; End.
В идеальном мире, где слова "Флешка на 4ГБ" означают, что на флешке есть 4ГБ памяти, решение будет таким:
4 ГБ = 4096 МБ = 4194304 КБ
4194304 КБ : 512 КБ = 8192 файла
В реальности производители обманывают покупателей, и слова "Флешка на 4ГБ" означают, что на флешке есть 4 000 000 000 байт:
4000000000 байт = 3906250 КБ = 3814,7 МБ = 3,72 ГБ
На такую флешку поместится 7629 файлов