// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ReadAllLines('int.txt').JoinIntoString.ToIntegers;
Print('Прочитано'); a.Println;
var b:=a.Where(x->x>0);
Print('Отобрано'); b.Println;
var f:=OpenWrite('out.txt');
foreach var e in b do Write(f,e,' ');
f.Close
end.
<u><em>Тестовое решение:</em></u>
Прочитано -5 8 -3 -2 0 -6 4 9 0 0 4 -4 -1 0 -1 3 6 7 1 8 0 2 -5 -2 9
Отобрано 8 4 9 4 3 6 7 1 8 2 9
Program A1;
var a,b:Integer; {Можно и real}
begin
readln (a,b);
if a<b then writeln ('Число а больше числа б') else writeln ('Число б больше числа а');
end.
F=0
a+b*c= 0+1+1=1 т.к перед скобкой знак инверсии то получается 1 меняется на 0 слдовательно ответ 0
Размер алфавита вычисляемся по формуле:
N = 2 ^n, где n - количество бит отводимое для записи одного числа.
Найдём n и будет нам счастье.
1/128 = 2^(-7) Гб = 2^3 Мб = 2^13 Кб = 2^23 Б = 2^26 бит
Ну и n = 2^26/16*64*64 = 2^26/2^16 = 2^10 = 1024.
Ну и размер: N = 2^1024
Лучше сам/а пересчитай. Могла ошибиться, ну а логика такая