Аня - туристка, Боря - художник, Гриша - футболист, Дина - певица, Вася - танцор
<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>
Это что..................
Ответ:Процесор
Объяснение:Процесор имеет цастоту работи канали и количество ядер
Const
n = 20;
var
i, imax, j, x: integer;
a: array[1..n]of integer;
begin
for i := 1 to n do
a[i] := random(100);
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
x := a[i];
a[i] := a[imax];
a[imax] := x;
end;
for i := 1 to n do
write(a[i],' ');
writeln();
writeln(imax);
end.