2. uses GraphABC;
begin
Pie(100, 50, 70, 270, 360);
<span>end.
3. </span>uses GraphABC;
begin
Draw(x -> 2 * cos(x), -pi, pi);
<span>end.
4. </span>uses GraphABC;<span>
begin
Draw(x -> cos(x), -10, 10);
Draw(x -> sin(x), -8, 8);
<span>end.
</span>5. </span>uses GraphABC;
begin
Brush.Color := clRandom;
Pie(200, 200, 100, 0, 170);
Brush.Color := clRandom;
Pie(200, 200, 100, 170, 270);
Brush.Color := clRandom;
Pie(200, 200, 100, 270, 300);
Brush.Color := clRandom;
Pie(200, 200, 100, 300, 330);
Brush.Color := clRandom;
Pie(200, 200, 100, 320, 333);
Brush.Color := clRandom;
Pie(200, 200, 100, 333, 360);
<span>end.
С цветами, думаю, сам разберешься</span>
может быть повесть.
может быть рассказ.
вот так сказка, стихотворения, рассказ.
или сказка, стихотворения, повесть.
Никакие.
Доказываю:
Попробуйте найти 2 целых числа от 1 до 99, которые в сумме составляют 100 и если инвертировать одно из них, получается второе число. Это невозможно, а максимально близкий результат - 90 ; 09
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (xa,ya):=ReadReal2('Введите координаты х и у точки А:');
var (xb,yb):=ReadReal2('Введите координаты х и у точки B:');
Writeln('|AB| = ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya)))
end.
<u>Пример</u>
Введите координаты х и у точки А: 10 2
Введите координаты х и у точки B: 10 7
|AB| = 5