1)адамның жеке өмірдегі автономия мен бостандыққа құқығы, оған билік органдары мен басқа адамдардың басып кіруінен қорғану құқығы.
2)жүйелерді пайдалану және ақпаратты өңдеу жөніндегі нұсқаулықтарды дәл орындаумен, өз міндеттеріне адал және әлеуметтік-жауапты қатынаспен байланысты нормаларды сақтау;
3)азаматтардың ақпаратқа құқығы, оның кез келген уақытта және кез келген жерде қолжетімділігі. Бұл ақпараттық қоғамның басты қағидаттарының бірі, азаматтың оған қол жеткізуге рұқсат етілген қажетті ақпаратқа қол жеткізу құқығын анықтайды.
{Проверка на существование треугольника} if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then Begin if ((a=b)or (b=c) or (a=c)) then Writeln('Треугольник равнобедренный');
if ((a=b) and (b=c)) then Writeln('Треугольник равносторонний') else Writeln('Треугольник разносторонний');
if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a)) then Writeln('Треугольник прямоугольный'); end else Writeln('Треугольник нельзя построить');
Объяснение:
1)адамның жеке өмірдегі автономия мен бостандыққа құқығы, оған билік органдары мен басқа адамдардың басып кіруінен қорғану құқығы.
2)жүйелерді пайдалану және ақпаратты өңдеу жөніндегі нұсқаулықтарды дәл орындаумен, өз міндеттеріне адал және әлеуметтік-жауапты қатынаспен байланысты нормаларды сақтау;
3)азаматтардың ақпаратқа құқығы, оның кез келген уақытта және кез келген жерде қолжетімділігі. Бұл ақпараттық қоғамның басты қағидаттарының бірі, азаматтың оған қол жеткізуге рұқсат етілген қажетті ақпаратқа қол жеткізу құқығын анықтайды.
uses crt;
Var a,b,c:integer;
Begin
Write('Введите 1-ю сторону: '); Readln(a);
Write('Введите 2-ю сторону: '); Readln(b);
Write('Введите 3-ю сторону: '); Readln(c);
{Проверка на существование треугольника}
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if ((a=b)or (b=c) or (a=c)) then
Writeln('Треугольник равнобедренный');
if ((a=b) and (b=c)) then
Writeln('Треугольник равносторонний')
else Writeln('Треугольник разносторонний');
if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a)) then
Writeln('Треугольник прямоугольный');
end
else Writeln('Треугольник нельзя построить');
Readln();
END.