Var a,b,c,d,e:integer;
begin
for a:=100 to 500 do begin
b:=a mod 2; c:=a div 10 mod 10; d:=a div 100;
e:=b+c;
if e=15 then writeln(a);
end;
end.
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>
Г=1/с; 1 мин 20с =80 с
1) F=256 000 бит/с * (2*60+45) секунд =256 000*165 бит - весь файл
2) (256 000 * 165 бит ) / (80 с *44 000 Г) = (256*165)/(80*44)=
=(16*15)/(5*4) = 4*3 = 12 бит - количество уровней квантования