<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqReal(3).Where(t -> t > 0).Sum.Println
end.
<h2>3.53 -6.23 12</h2><h2>15.53 </h2>
Program prx;
Uses crt;
Var y, x : byte;
Begin
Writeln ( "Введи значение х");
Readln(x);
If x<0
Then y:=-1
Else begin
If x=0
Then y:= 0
Else y:=1
End;
End;
Writeln(y);
Readln;
End.
Да поместятся :)
157*3=471 МБ
2ГБ=2000МБ
2000-471=1529 МБ останется
Книга, т. к. это носитель информации
N=2^i ; i=24 (У вас скорей всего опечатка, так как 2^24=16777216
1024*764=783360
783360*16бит=12533760 бита/8бит/1024Байт=1530Кб/1024Кб=1,49мб