Var
alpha: integer;
begin
read(alpha);
writeln((alpha mod round(360 / 12)) * 12);
end.
Алг
нач цел i,j,s; цел таб a[1:3,1:3]
s:=0
нц для i от 1 до 3
нц для j от 1 до 3
a[i,j]:=int(rnd(10))
вывод a[i,j],' '
если i=2 то s:=s+a[i,j] все
кц
вывод нс
кц
вывод 'Сумма равна ',s
кон<span>
</span>
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний');
end.
01011110.11000011.10100010.00110010=<span>94.195.162.50</span>
00110010=50
10100010=162
11000011=195
1011110= 94
В двух словах - поиск таких элементов А которые не встречаются в векторе С
как делается
пробегаем по вектору А
при каждом новом элементе обнуляем флаг К
продегаем по вектору С
сравниваем текущий элемент А с текущим элементом С
если равны, то меняем флаг К на 1
когда текущий элемент А сравнили со всеми элементами С и флаг К остался нулем, то значит не нашли равных и выводим значение текущего элемента А на экран
и тд