1*. визначте, до якого типу мереж належить: а) мережа комп’ютерного класу вашого навчального закладу; б) мережа, що об’єднує ій комп’ютер, ноутбук і смартфон; в) українська науково-освітня телекомунікаційна мережа уран. . !
Const n=10; var a,g: array [1..100] of integer; var b : array [1..100] of string; var k: integer;
begin
writeln ('ответы вводятся строкой без пробелов. Пример: 12345'); b[1]:='1. Общество в широком смысле слова – это '+NewLine+ ' 1) территория обитания людей'+NewLine+ ' 2) история человечества'+NewLine+ ' 3) совокупность форм объединения людей'+NewLine+ ' 4) производительные силы';
b[2]:= '2. Обществознание – это '+NewLine+ ' 1) наука'+NewLine+ ' 2) учебная дисциплина'+NewLine+ ' 3) комплекс наук об обществе и человеке'+NewLine+ ' 4) сфера естественнонаучного знания'+NewLine+ ' 5) сфера гуманитарного знания';
b[3]:= '3. Человек отличается от животного наличием'+NewLine+ ' 1) языка'+NewLine+ ' 2) разума'+NewLine+ ' 3) сознанием'+NewLine+ ' 4) трудовой деятельности'+NewLine+ ' 5) мышления';
b[4]:= '4. Личность возможна (Определить неверный ответ)'+NewLine+ ' 1) без морали'+NewLine+ ' 2) без гражданственности'+NewLine+ ' 3) без ответственности'+NewLine+ ' 4) без диплома о высшем образовании';
b[5]:= '5. Человек и общество'+NewLine+ ' 1) человек первичен по отношению к обществу'+NewLine+ ' 2) общество первично по отношению к человеку'+NewLine+ ' 3) человек и общество взаимно обусловлены'+NewLine+ ' 4) общество и человек развиваются независимо друг от друга';
b[6]:= '6. Мораль в религии основывается'+NewLine+ ' 1) на разуме'+NewLine+ ' 2) на вере'+NewLine+ ' 3) на долге'+NewLine+ ' 4) на свободе';
b[7]:= '7. Целью развитой религии является достижение'+NewLine+ ' 1) материального благополучия'+NewLine+ ' 2) социального положения и значимости'+NewLine+ души'+NewLine+ ' 4) познание мира'+NewLine+ ' 5) управление силами природы';
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 type Point=record x,y:real end;
procedure GetPoint(c:char;var M:Point); begin Write('Введите координаты точки ',c,': '); Read(M.x,M.y) end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin var A,B,C:Point; GetPoint('A',A); GetPoint('B',B); GetPoint('C',C); var ab:=Dist(A,B); var bc:=Dist(B,C); var ac:=Dist(A,C); if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
Тестовое решение: Введите координаты точки A: -6.9 -5.3 Введите координаты точки B: 0 11.4 Введите координаты точки C: 9 3 Треугольник существует
2.локальна однонаправлена
3.широкомасштабна мережа (WAN)