<span>Кодированием числовой информации:называется совокупность приемов наименования и записи чисел.</span>
Program mmm;
Var a : real;
var i: integer;
s: real;
begin
s:=0;
Randomize;
For i := 1 To 30 Do
Begin
a := random*100-45;
writeln(a:6:2) ;
//выписываем сгенерированные числа, необязательно
if a>40 then
s:=s+a;
End;
writeln(s:6:2) ;
end.
Емкость жесткого диска варьируется от 128 гигабайт до 4 терабайт.
Емкость CD дисков около 700 мегабайт.
Емкость DVD дисков около от 4 Гб до 7 Гб.
Емкость flash накопителей примерно от 128 мегабйт до 2 терабайт.
<span>Емкость blue-ray дисков от 25 гб до 50 гб.</span>
1)
var s,k:integer;
begin
s:=0;
begin for k:= 6 to 12 do
s:=s+5;
end;
write(s);
end.
Ответ
35
2)
var Dat: array [1..7] of integer;
k, m, day: integer;
begin
Dat[1]:=7;
Dat[2]:=9;
Dat[3]:=10;
Dat[4]:=8;
Dat[5]:=6;
Dat[6]:=7;
Dat[7]:=6;
day:= 1;
m:=Dat[1];
begin for k:=2 to 7 do
if Dat[k]<m then
begin m:=Dat[k];
day:=k;
end;
end;
write(day);
end.
Ответ
5
begin
var m := 3;
var n := 3;
var a := MatrRandom(m, n, 0, 9); a.Println;
var b := new integer[m];
for var i := 0 to m - 1 do
b[i] := a.Row(i).Sum;
b.Println;
var c := new integer[n];
for var j := 0 to n - 1 do
c[j] := a.Col(j).Min;
c.Println;
end.