Var
a,b,c:integer;
x,y,z:string;
begin
writeln('Введите стороны треугольника');
readln(a,b,c);
x:='равнобедренный';
y:='равносторонний';
z:='разносторонний';
begin
if (c=b) and (a<>c) then
writeln('Треугольник',' ',x);
if (a=c) and (a<>b) then
writeln('Треугольник',' ',x);
if (a=b) and (a<>c) then
writeln('Треугольник',' ',x);
if (a=b) and (a=c) and (b=c) then
writeln('Треугольник',' ',y);
if (a<>b) and (a<>c) and (b<>c) then
writeln('Треугольник',' ',z);
end;
readln
<span>end.</span>
Ответ в файле::::::::::::::::::::::::::::::::::::::::::::
Если 4800 бод это 4800 бит/с, то
4800*20=96000 бит будет передано за 20 с
96000/8=12000 символо нужно передать (т.к. КОИ-8 8-ми битная кодировка)
12000/1500=8 страниц
Var
a: array[1..10] of integer;
i, max, imax: integer;
begin
for i:=1 to 10 do
readln(a[i]);
max := 0;
for i:=1 to 10 do
if (a[i] > max) and (a[i] > 4) and (a[i] < 9) then
begin
max := a[i];
imax := i;
end;
writeln(imax);
end.