A = -5
B = 4
Объяснение:
Были (40;-2) переместились в (-11;121)
При этом четыре раза перемещались по X на 2 и по Y на B, это смещение составило X=4*2, Y=4*B
И пять раз по X на А и по Y на 5, это смещение составило X=5*A, Y=5*5
Итого смещение по X = 4*2 + 5*A, по Y = 4*B + 5*5
И всё это еще повторялось 3 раза, то есть по X = 3* (4*2 + 5*A), по Y = 3* (4*B + 5*5)
В итоге получаем
40 + 3* (4*2 + 5*A) = -11
и
-2 + 3* (4*B + 5*5) = 121
Решаем элементарные уравнения:
40 + 3* (4*2 + 5*A) = -11
3* (8 + 5*A) = -51
8 + 5*A = -17
5*A = -25
A = -5
-2 + 3* (4*B + 5*5) = 121
3* (4*B + 25) = 123
4*B + 25 = 41
4B = 16
B = 4
r = 187,5
a = 9
d = 63
№2
var a,b,c,d,e,f:real;
begin
writeln ('Введите оценки полученные в 5 опросах: ');
readln (a,b,c,d,e);
f:=(a+b+c+d+e)/5;
writeln ('Средняя оценка = ',f);
end.
№3
var dengi,a,b,c,d,ostatok:real;
begin
writeln ('Сколько у Вас денег?');
readln (dengi);
writeln ('Введите стоимость перчаток:');
readln (a);
writeln ('Введите стоимость портфеля:');
readln (b);
writeln ('Введите стоимость галстука:');
readln (d);
ostatok:=dengi-a-b-d;
if ostatok <0 then
writeln ('Вам не хватит денег на данную покупку, для совершения этой покупки Вам нужно ещё ', abs(ostatok), ' рублей')
else
writeln ('У Вас останется ',ostatok,' рублей');
end.