var
x, y: real;
k: integer;
begin
k := 0;
Read(x, y);
while (x <> 0) or (y <> 0) do
begin
if (x < 0) and (y > 0) then
k := k + 1;
Read(x, y)
end;
Writeln(k);
end.
Все залежить від доступу, повний він чи лише для читання
Ответ
1) 1 первое условие говорит что Х не принадлежит отрезку АВ
2) 4 умножаем 12*256*128 - память в битах, делим на 8 получаем в байтах, делим на 1024 получаем килобайты
3) 2 16 символов можно закодировать в 4 бита т.е. 1/2 байта таким образом ответ 320
4) 1
5) 3 умножаем 3*96*68 делим на 8
Var
a, b, i, j, found: integer;
begin
readln(a, b);
for i := a to b do
begin
found := 1;
for j := 2 to round(sqrt(i + 1)) do
begin
found := found * (i mod j);
if found = 0 then break;
end;
if found <> 0 then write(i, ' ');
end;
end.