Program Project1;
var m:array of integer; res, n, i:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
res:=0;
for i:=1 to Length(m)-1 do
if m[i]<0 then res:=res+m[i];
writeln('Result:=', res);
readln;
end.
#1
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := ((x + y - z)/(x*x + 2));
writeln(a);
end.
#2
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := 5*((2*x-z)/(3+y*y));
writeln(a);
end.
#3
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := (1 + z)*((x+(y/x*x+4))/(2+(1/(x*x+4))));
writeln(a);
end.
#2.1
const pi = 3.14;
var
l,s,r : real;
begin
readln(r);
l := 2 * pi * r;
s := pi * r * r;
writeln(l);
writeln(s);
end.
#2.2
var
x : real;
begin
readln(x);
writeln((180 - x)/2);
end.
Скорее всего нет верного ответа
Фильтр не может повлиять так глобально.
Контрастность и вовсе не влияет.
Узнаем, насколько сместится чертёжник после выполнения цикла (вторая и третья команда):
x = (3 + 1) × 3 = 12
y = (3 - 2) × 3 = 3
После выполнения всего алгоритма (без команды 1):
x = 12 - 6 = 6
y = 3 + 9 = 12
Чертёжник вернётся в исходную позицию, если задать команду так, чтобы при выполнении этой команды трижды (ведь цикл повторяется три раза) чертёжник сместился на (-6, -12).
x = -6 ÷ 3 = -2
y = -12 ÷ 3 = -4
Ответ: (-2, -4)