<span><span>var q:integer;</span><span> i,j:integer;</span>begin<span> writeln('введите площадь');</span><span> readln(q);</span><span> for i:=1 to q do</span><span> for j:=i to q div i do</span><span> if i*j=q then writeln('длина: ',j:6,' ширина: ',i)</span><span>end<span>.</span></span></span>
Uses GraphABC;
begin
var R:=ReadInteger('R=');
var h:=ReadInteger('h=');
ClearWindow;
var Ax:=Trunc(300-1.22*R);
var Bx:=Trunc(300+1.22*R);
var Ay:=Trunc(100+0.71*R);
var By:=Trunc(100-0.71*R);
DrawEllipse(Ax,Ay,Bx,By);
Line(Ax,100,Ax,100+h);
Line(Bx,100,Bx,100+h);
DrawEllipse(Ax,Ay+h,Bx,By+h);
FillEllipse(Ax,Ay+h-3,Bx,By+h-3);
end.
Для примера введите числа 50 и 150.
"Магические коэффициенты" 1.22 и 0.71 - это коэффициенты искажения окружности по осям в изометрической проекции.
Смотря с чего перестал выходить звук))
В первых, не факт то что проблема со звуковой картой,
во вторых если уверены что проблема со звуковой картой то покупаете новую звуковую карту. Странный если честно вопрос..<span />
Ответ:
1) Шестиричная. Ибо максимальная цифра 5
2) Третичная. То же обоснование
3) Шестиричная.То же обоснование
4) Одиннадцатиричная. А - это 10
5) Триннадцатиричная. С - это 12
6) Восьмиричная. То же обоснование