Первый вариант программы:
Const
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
S:=S+A[i];
End;
WriteLn;
WriteLn('Сумма его элементов: ',S);
End.
Пример:
Исходный массив: -6 -9 8 7 1
Сумма его элементов: 1
Второй вариант программы:
Const
N = 13;
Var
A:array[1..N] of integer;
i,S,B:integer;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
End;
WriteLn;
Write('Введите номера пяти элементов: ');
For i:= 1 to 5 do
Begin
Read(B);
S:=S+A[B];
End;
WriteLn('Их сумма равна: ',S);
End.
Пример:
Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1
Введите номера пяти элементов: 3 4 7 12 1
Их сумма равна: 23
Возьми напиши компьютер по середине потом
клавиатура
о.
монитор
п
ь
ю
т
е
р
дальше возит открой книгу по информ и найди слова
Решение в файле. Реализовано на С++. Нужны будут объяснения, пиши подскажу
Над найти расстояние от точки до центра окружности. Прще использовать квадрат расстояния. Если он равен квадрату радиуса, то точка на окружности. Если меньше, то внутри круга. Больше, то вне круга.
var xm,ym,xc,yc,r:real;
begin
writeln('Введите координаты точки Xm, Ym');
readln(xm,ym);
writeln('Введите координаты центра окружности Xc, Yc');
readln(xc,yc);
writeln('Введите радиус окружности R');
readln(r);
if sqr(r)=sqr(xm-xc)+sqr(ym-yc) then writeln ('На окружности') else
if sqr(r)>sqr(xm-xc)+sqr(ym-yc) then writeln ('Внутри круга') else
writeln('Снаружи круга');
end.
Тест №1
Введите координаты точки Xm, Ym
4 2
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
На окружности
Тест №2
Введите координаты точки Xm, Ym
3 1
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
Внутри круга
Тест №3
Введите координаты точки Xm, Ym
-1 -3
Введите координаты центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
Снаружи круга
Нумерация битов, чтоб было понятнее, 7654 3210
68 в двоичной это 0100 0100
36 в двоичной это 0010 0100
Теперь порассуждаем.
X&68 не будет равно нулю только при условии, что либо бит 2 равен одному, либо бит 6.
X&36 = 0 если бит 5 и бит 2 тоже равны нулю.
Получается. что чтобы выражение было истинным (X&68 != 0) -> (X&36 = 0), необходимо чтобы в числе бит 6 был равен единице, а биты 5 и 2 - нулям, то есть число X имеет вид ?10? ?0??
В этом случае, чтобы было истинным выражение X&A = 0, в A бит 6 должен быть нулем, биты 5 и 2 могут быть и нулем, и единицами, а все остальные должны быть нулями. Поэтому подходящие под А числа:
0000 0000 - 0
0000 0100 - 4
0010 0000 - 32
0010 0100 - 36
Ну а дальше зависит от того, считать ли 0 натуральным. Если не считать - то ответ А = 4