===== PascalABC.NET =====
begin
Writeln('Плотность равна ',
ReadReal('Задайте массу, кг:') /
ReadReal('Задайте объем, м^3:'):0:1, ' кг/м^3')
end.
Значения плотностей составят:
а) 8900 кг/м³
б) 7100 кг/м³
CD-ROM (англ. Compact Disc Read-Only Memory, читается: «сиди-ро́м») — разновидность компакт-дисков с записанными на них данными, доступными только для чтения (read-only memory — память «только для чтения»)
Позже были разработаны версии с возможностью как однократной записи (CD-R Compact Disc-Recordable) и многократной перезаписи (CD-RW Compact Disc-ReWritable, Перезаписываемый компакт-диск) информации на диск.
Var a:array [1..10] of integer;
i,p:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10);
if (a[i] mod 3 = 0) and (p=0) then p:=i; end;
writeln(a);
for i:=p to 9 do
a[i]:=a[i+1];
a[10]:=0;
writeln(a);
end.
На целостность данных она не влияет, первый вариант.
<span>В СЛОВЕ МЕГАБАЙТ 64 бита, т. к. каждая буква - 1 байт, а в каждом байте 8 бит</span>