256 X 112 = 28672
14Kбайт= 14 x 8 x 1024 = 114688 бит
114688 : 28672 = 4
2^4 =16
не менее 16-ти )
1.
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) Or ((a<0) and (b<0))
writeln('У обоих чисел одинаковые знаки')
else
writeln('У чисел разные знаки') ;
<span>end.
2.
var a,b:integer;
begin
readln(a);
readln(b);
if (a mod 2=0) And (b mod 2=0) then
writeln('Высказывание истинно')
else
writeln('Высказывание ложно')
<span>end.</span></span>
Почему прост, не выучить. Это же элементарное.