Составьте программы закрашивания указанных клеток. Количество клеток в каждом ряду или столбце определяется переменной, значение которой меняется в программе перед каждым циклом. Начальное положение Робота - в левом верхнем углу поля.

Написано на языке python:

from math import sqrt as sqrt
x1, y1, x2, y2, x3, y3 = list(map(int,input().split()))
a = sqrt((x2-x1)**2 + (y2-y1)**2)   
b = sqrt((x3-x2)**2 + (y3-y2)**2)
c = sqrt((x1-x3)**2 + (y1-y3)**2)
p = (a+b+c)/2
S = sqrt(p*(p-a)*(p-b)*(p-c))  
R = round((a*b*c)/(4*S),3)      
print(R)   

Объяснения:
1) Задаём координаты (вводим 6 цифр через пробел)
2) Считаем длины сторон треугольника
3) Находим полупериметр
4) Находим площадь
5) Находим радиус описанной окружности и округляем его до 3 знаков после запятой(если не нужно округлять - оставьте только (a*b*c)/(4*S))
6) Выводим ответ

1.
var p:real; i:integer;
begin
write('цена 1 кг конфет = ');
readln(p);
for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);
end.

Пример:
цена 1 кг конфет = 125.50
1 кг - 125.50
2 кг - 251.00
3 кг - 376.50
4 кг - 502.00
5 кг - 627.50
6 кг - 753.00
7 кг - 878.50
8 кг - 1004.00
9 кг - 1129.50
10 кг - 1255.00

2.
var a,b,p,i:integer;
begin
write('a, b: ');
readln(a,b);
p:=1;
for i:=a to b do p:=p*i;
writeln('p = ',p);
end.

Пример:
a, b: 5 10
p = 151200

3.
var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s:8:3);
end.

Пример:
n =5
s = 2.283