<span>Uses crt;
var a,b,c:integer;
begin
read(a);
read(b);
read(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
begin
if ((a=b) and (b<>c)) or ((a=c) and (c<>b)) or ((b=c) and (c<>a)) then writeln('Triangle is isosceles');
if (a=b) and (b=c) and (a=c) then writeln('Triangle is equilateral');
if (a<>b) and (a<>c) and (b<>c) then writeln ('Triangle is scalene');
end
else writeln('Triangle is invalid');
end.</span>
1. 1)в. 2)б. 3)а2.ім’я_поштової_скриньки_користувача@доменне_ім’я_поштового_сервера3. 1),2)4. 3),4)5. 1),2),3),5)6. 1),3),4)
<u><em>Только для PascalABC.Net 3.2 !!!</em></u>
begin
var n:=readInteger('Число элементов массива-');
var a:=ArrRandom(n,-50,50); a.Println;
for var i:=1 to n-2 do a[i]:=2*(i+1);
a.Println
end.
Пример
Число элементов массива- 10
-40 4 -49 0 -47 41 49 33 -31 -1
-40 4 6 8 10 12 14 16 18 -1
begin
var n:=readInteger('Число элементов массива-');
var a:=ArrRandom(n,-50,50); a.Println;
var i1:=a.IndexMax;
var i2:=a.IndexMin;
Writeln(a[min(i1,i2)+1:max(i1,i2)].Where(x->x<0).Sum)
end.
Пример
Число элементов массива- 18
-45 -30 -49 -44 34 -5 -12 -28 22 14 -39 -20 -46 50 6 21 20 -47
-194
begin
var a:=ReadlnString('Введите строку;').ToCharArray;
// было сделано так только ради получения массива символов,
// который на самом деле только мешает
Writeln(a);
if Pos('...',a.JoinIntoString)>0 then
Writeln('Троеточие в массиве есть')
else Writeln('Троеточия в массиве нет')
end.
Пример
Введите строку; 6ye$% DFDRT..drrtert...DFDGD
[6,y,e,$,%, ,D,F,D,R,T,.,.,d,r,r,t,e,r,t,.,.,.,D,F,D,G,D]
Троеточие в массиве есть
Віеіпедія, Інтернет і т.д.
1)1236/103=12 байт -такой объем информации на каждого участника конференции
2) 2^n≥500, n-минимально возможное число бит под уникальный номер у каждого участника
n=9; 2^9=512
значит 9 бит под номер, тогда на дополнительную информацию для каждого остается
12 байт- 9 бит=12*8-9=96-9=87 бит-ответ)