1)8байтов;56 бит
2)5байтов;40битов
3)9байтов;72бита
4)12байтов;96битов
Var
i: real; //Натуральное число
begin
readln(i); //Считал число
while (i > 5) do //В условном цикле...
i := i / pi; //...преобразовал число
writeln(i); //Вывел число
end.
Составил в pascal
program mas;
var i,j:integer; a:array [1..10] of integer;
begin
randomize;
for i=1 to 10 do
begin
a[i]:=random(10);
end;
for i=2 to 10 do
begin
j:=j+a[i];
i:=i+1;
end;
writeln(j);
readln;
end.
Текстовая информация, что же еще :)