Задание 1.
int a,b;
scanf("%i", &a);
scanf("%i", &b);
if (a<b)
for(int i=a; i<=b; i++)
printf("x = ", x , "; y = ", ((x3+1)/(x-3)+x) );
Задание 2.
int sum;
sum = 0;
for(int i=1; i<=115; i+=6)
sum+=i;
printf(sum);
Задание 3.
int a,b, n;
n = 0;
scanf("%i", &a);
scanf("%i", &b);
if (a<b)
for(int i=a; i<=b; i++)
if (i%11 == 0) n++;
if (a>b)
for(int i=b; i<=a; i++)
if (i%11 == 0) n++;
printf(n);
На C ничего никогда не писал, поэтому может чё-то не так, но по идее как-то так...
uses GraphABC;
var x0, y0, x1, y1: integer;
begin
SetWindowSize(400, 400);//устанавливаем размер окна
x0 := WindowWidth;//ширина окна
y0 := WindowHeight;//высота окна
SetFontColor(clRed);//Устанавливаем цвет текста
TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу
x1 := WindowWidth div 2; //половина ширины окна
y1 := WindowHeight div 2;//половина высоты окна
SetFontColor(clBlue);
TextOut(x1, y1, 'Сергей');//Надпись посередине
SetFontColor(clYellow);
TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу
SetFontColor(clPurple);
TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу
SetFontColor(clGreen);
TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.
Программа была написана в проверьте, работает ли она в вашем Pascal.