Заданы числа a и b. определите, эти числа одного или разных знаков.

Var a,b : integer; begin writeln('a'); readln(a); writeln('b'); readln(b); while a> 0 do   begin    if b> 0 then     writeln ('a и б одного знака');   else    writeln ('a и б разного знака);   end; while a< 0 do   begin    if b< 0 then     writeln ('a и б одного знака');   else    writeln ('a и б разного знака); end; end.

32 кбит/с*16 с=524288 бит=65536 кбайт.

вес 1 страницы=8*48=384 бит.48

кол-во стр=524288/384=1365 страниц

 

желтый знак - нехватка памяти

все остальное - размер