Ниже
Объяснение:
Плагиат — умышленное присвоение авторства чужого произведения науки или искусства, технических решений или изобретений. Плагиат может быть нарушением авторско-правового законодательства и патентного законодательства и в качестве таковых может повлечь за собой юридическую ответственность. С другой стороны, плагиат возможен и в областях, на которые не рас действие каких-либо видов интеллектуальной собственности, например, в математике и других фундаментальных научных дисциплинах.
Авторское право — это право интеллектуальной собственности. Каждый, кто вложил время, средства и умственный труд в создание какого-либо произведения, хотел бы защитить своё творение. В понятии «авторское право» различают три определения: автор, субъект и объект права. Автор — это всегда физическое лицо, которое создало произведение.
Ветвление – это команда алгоритма, в которой делается выбор, выполнять или не выполнять какую-нибудь группу команд в зависимости от условий. Ветвление используется в двух случаях:
Когда в алгоритме есть действия, которые иногда нужно пропускать (в зависимости от какого-то условия).
Когда в алгоритме нужно записать выбор тех или иных действий (в зависимости от какого-нибудь условия).
В блок-схеме условие ветвления записывается в ромбе, из которого выходят обязательно 2 стрелки. Стрелка «Да» указывает на команды, которые должны выполняться, когда условие соблюдается. Стрелка «Нет» указывает на команды, которые должны выполнятся, когда условие не соблюдается.
var
R,V: Real;
begin
ReadLn(R);
V:= (4/3)*pi*sqr(R)*R;
WriteLn(V);
ReadLn;
end.
2.
var
a, b, c, CAB, CBA, ACB: Real;
begin
writeln('vvedite storonu a'); readln (a);
writeln('vvedite storonu b'); readln (b);
writeln('vvedite storonu c'); readln (c);
CAB:=(sqr(c)-sqr(a)-sqr(b))/(-2*a*b);
CBA:=(sqr(a)-sqr(b)-sqr(c))/(-2*b*c);
ACB:=(sqr(b)-sqr(a)-sqr(c))/(-2*a*c);
writeln('ugol CAB =', CAB:3:2 );
writeln('ugol = CBA = ', CBA:3:2 );
writeln('ugol = ACB = ', ACB:3:2 );
readln;
end.
3.
//uses crt;
var
k: Integer; // Идёт k-ая секунда
begin
ReadLn(k);
WriteLn('Часов:', k div 3600);
While k>=3600 do k:= k - 3600;
WriteLn('Минут:', k div 60);
end.
4.
var
R1, R2, R3, R0: Real;
begin
WriteLn('Vvedite R1 ='); ReadLn(R1);
WriteLn('Vvedite R2 ='); ReadLn(R2);
WriteLn('Vvedite R3 ='); ReadLn(R3);
R0:=1/(1/R1+1/R2+1/R3);
WriteLn('Soprotivlenie = ', R0);
ReadLn;
end.