Var
a : array [1..100] of integer;
i, sum : integer;
begin
for i := 1 to 100 do read (a[i]);
sum := 0;
for i := 1 to 100 do sum := sum + a[i];
write (sum);
end.
Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if a
Var x:integer;
begin
writeln('Введите чилос x: ');
readln(x);
if x>= 100 then
if (not odd(x)) then
writeln('TRUE')
else
writeln('FALSE')
else
writeln('Число не трехзначное');
<span>end.
Надеюсь правильно понял тебя и составил программу верно.</span>
Правильный ответ 3. (16;-17)
(2+6(-1-2));(-7+6(1+1+2)). Мы окажемся в точке (-16;17). А что бы вернуться в исходную нужно привать 16 по оси х и вычесть 17 по оси у.