Type mas=array of integer;
procedure revers(var a:mas; i:integer);
begin
write(a[i],' ');
if i>0 then revers(a,i-1);
end;
var a:mas;
i,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do
read(a[i]);
revers(a,n-1);
end
Int это целая часть от деления числа на другое число...
1. Переведите в байты:560 бит = 560:8 = 70 байтов
<span>3024 бита = 3024:8 =378 байтов
</span>
2. Переведите в биты:540 байтов = 540*8 = 4320 бит
2,5 Кб = 2,5*1024*8= 2560*8 = 20480 бит
2 Гб = 2*1024*1024*1024*8 = 171798184 бита
3. Переведите в килобайты:1024000 бит = (1024000:8):1024 = 125 Кб
9240 байтов = 9240:1024 ≈ 9,02 Кб
4. Заполните пропуски числами:а) 3, 5 Кбайт = 3584 байт = 28672 бит
б) 3, 5 Гбайт = 3584 Мбайт = 3670016 Кбайт
Задача 1 Ответ: 312 бит
Задача 2Ответ: 7,3 Кбайт
Задача 3Ответ: 547
Задача 4Ответ: 32768
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.