Const n = 5;
var
i, p, x:byte;
z: array[1..n] of byte;
begin
readln(x);
for i:=1 to n do
begin
readln(z[i]);
if z[i]=x then p:=i;
end;
writeln(p);
end.
Лист защищен без пароля, чтобы случайно не повредить формулы.
При перемещении выделенная область растрового изображения или объект в векторном рисунке удаляются, а их копия помещается в буфер обмена. Затем копия из буфера обмена помещается в область рисования и перетаскивается мышью в нужное место растрового изображения или векторного рисунка.
При удалении выделенная область растрового изображения или объект в векторном рисунке просто удаляются.
При копировании сначала выделяется область растрового изображения или объект в векторном рисунке. Затем копия выделенной растровой области или векторного объекта помещается в специальную область памяти операционной системы, которая называется буфером обмена<span>. Наконец, копия из буфера обмена помещается в область рисования и перетаскивается мышью в нужное место растрового изображения или векторного рисунка.</span>
Var a,b,c,cosa, cosb, cosc:real;
<span>begin </span>
<span>writeln('Введите стороны треугольника АВС'); </span>
<span>read(a,b,c); </span>
<span>cosa:=(sqr(b)+sqr(c)-sqr(a))/(2*b*c); </span>
<span>cosb:=(sqr(c)+sqr(a)-sqr(b))/(2*c*a); </span>
<span>cosc:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b); </span>
<span>writeln('Косинус угла А = ', cosa, ' Косинус угла В =', cosb,' Косинус угла C =', cosc); </span>
<span>end.</span>