<span>это организационно-правовой документ, в котором определяются основные функции, обязанности, права и ответственность сотрудника организации при осуществлении им деятельности в определенной должности.</span>
Program prim;
uses crt;
var
y,x,a,modul,koren,kvad:real;
begin
writeln('Решаем пример:');
kvad:=sqr(x);
koren:=sqrt(x*a);
modul:=abs(a);
y:=(kvad-koren)/modul;
writeln(y);
<span>end.</span>
//PascalABC.Net 3.2
begin
var time:=readinteger('Введите время суток: ');
if time in [0..5] then write ('Ночь')
else if time in [6..11] then write ('Утро')
else if time in [12..18] then write ('День')
else write ('Вечер');
end.
Int a[39];
int sum=0;
for(int i=0; i<=39; i++)
{ for(int j=20; j<=60; j++)
a[i]=j;
}
for(i=0; i<39;i++)
sum+=a[i];
Program Uskorenie;
uses Crt;
const g = 9.81;
var g1, g2, g3 : real;
begin
ClrScr;
Write (' Введите g1 ='); ReadLn(g1);
Write(' Введите g2 ='); ReadLn(g2);
Write (' Введите g3 ='); ReadLn(g3);
WriteLn;
if (g1=g) or (g2=g) or (g3=g) then WriteLn(' Есть!')
else WriteLn(' Отсутствует...');
ReadLn;
end.