Letter.txt,письмо.doc,роза.bmp,crop12.exe
500 байт = 0,5 кбайт=500 байт (т.к в одном кбайт 1000 байтов)
8 бит = 1 байт= 8 битов( т.к в одном байте 8 битов)
Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
30048=3•10000 0•1000 0•100 4•10 8•1
97510=9•10000 7•1000 5•100 1•10 0•1