1
var a,b:integer;
begin
readln(a,b);
if a>b then
write(a+b);
if b>a then
write(b-a);
if a=b then
write(ab);
end.
2
type mas=Array [1..15] of integer;
var i:integer;
a:mas;
begin
randomize;
for i:=1 to 15
do begin
A[i]:=random(-10,10);
if A[i]<0 then
write(i,' ');
end;
end.
Там будет первая и третья (буква Г)
1) Отрезаем 3 квадрата со стороной 131, остается прямоугольник со сторонами 131*32
2) Отрезаем 4 квадрата со стороной 32 ,(131-4*32 = 3), остается прямоугольник со сторонами 3*32
3) Отрезаем 10 квадратов со стороной 3 (32-10*3=2), остается прямоугольник со сторонами 2*3
4) Отрезаем квадрат со стороной 2 ,(3-2*1) остается прямоугольник со сторонами 1*2
5) Разрезаем на 2 квадрата со сторой 1
Итого получили: 3 квадрата 131*131; 4 квадрата - 32*32; 10 квадратов - 3*3,
1 квадрат - 2*2; 2 кадрата - 1*1
В первом D9;
т.к. в среднее значение не входит С1, то среднее значение запишется так: (95-С1)/6=10; отсюда С1=35