Фрегат и исминец 500
исминец 2500
фрегат 2000
найдите фрегат или исминец ​

Увеличьте шаг в 10 раз
До x := x + 0.02
После x := x + 0.02*10

Измените промежуток на котором строится график функции на [-5, 10]
До
x := -15;
    while x <= 15 do
После
x := -5;
    while x <= 10 do


Измените функцию на: 1) tg(x) ; 2) sin(x)+2*x.
До y := 0.4 * x + 2 * sin(3 * x);
После 2) y := sin(x)+2*x;
После 1) y := tan(x);


Выведите на экран график функции только в I и IV четвертях
До circle(x1, y1, 2);
После if x*y>=0 then circle(x1, y1, 2);


Измените цвет фона, цвет графика функции, цвет координатных осей
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
program Grafik;

uses GraphABC;
var
    x0, y0, x1, y1, k: integer;
    x, y: real;

begin
    SetWindowSize(640, 400);
    Window.Clear(clGold);
   
    x0 := 320;y0 := 200;k := 20;
    setPenColor(clRed);
    line(20, y0, 620, y0);
    line(x0, 20, x0, 380);
   
    setPenColor(clGreen);
    SetBrushColor(clLime);
    x := -5;
    while x <= 10 do
    begin
        //        y := 0.4 * x + 2 * sin(3 * x);
        //        y := sin(x)+2*x;
        y := tan(x);
        x1 := trunc(x0 + x * k);
        y1 := trunc(y0 - y * k);
        if x * y >= 0 then circle(x1, y1, 2);
        x := x + 0.02
    end;
end.

Задача связанная с двоичной системой счисления ( (n)-основание системы счисления, (2)-двоичная с.с,^ -степень числа(разряды двоичных чисел),(10)-десятичная с.с),при переводе из 2-ной с.с мы расставляем разряды чисел,начиная от знака = и с 0-го разряда,потом основание с.с возводим в степень числа:  10 (2)= 1*2^1+0*2^0=2+0=2 (10), т.е 2 дочери , 1000=1*2^3+0*2^2+0*2^1+0*2^0=8+0+0+0=8 (10) -лет,  отнимаем 1000 (2) - 10 (2) =110(2),переводим из 2-ной с.с в десятичную с.с 110(2) = 1*2^2+1*2^1+0*2^0=4+2+0=6 (10) лет 
ответ: 2 дочери,старшей 8 лет,младшей 6 лет