Пямять в ГБ 2 перевиди в мг
Var
a : array [1..16] of integer;
i, c : integer;
begin
randomize;
for i := 1 to 16 do
a[i] := random (41) - 20;
c := 0;
for i := 1 to 16 do
if a[i] < 0 then c := c + 1;
writeln (c);
end.
Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
<span>end.</span>
4 двоичных разряда - 16 значений. Либо от 0 до 15, либо от -7 до +7.
Вертикаль:1.Информация.
Горизонталь:1.Редактирование.2.Фрагмент.3.Шрифт.4.Форматирование.5.Процессор
6.Фрагмент.(это не ошибка!),7.Выравнивание.8.Центрирование.
9.Копирование.10.Прямая