Чертежник в точке В. Что нужно написать вместо a и b в команде "сместиться на вектор (a, b)", чтобы он попал в точку Б? Шаг сетки равен 1.

a
Введите целое число или десятичную дробь…

b
Введите целое число или десятичную дробь…

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.

Program enot;
Var a: array [1..22] of integer;
i,h,n,k,c:integer;
 l:real;
begin
for i:=1 to 22 do
a[i]:=random(51)-25;
for i:=1 to 22 do
begin
if a[i]>0 then begin  c:=c+a[i];
  k:=k+1; 
end;
l:=c/k;
n:=0;
h:=0;
if a[i]<0 then h:=h+1;
if a[i]=0 then n:=n + 1;
end;
writeln(a[i],'среднее арифметическое= ',l:2:2,'; количество отрицательных = ', h,'; количество равных нулю = ',n);
end.

Вот и вторая задача:
Program enot;
Var a: array [1..4,1..4] of integer;
i,j,s,p,h:integer;
o:real;
begin
for i:= 1 to 4 do
  for j:= 1 to 4 do
   a[i,j]:= random(25)-12;
p:=1;
for i:= 1 to 4 do
begin
   s:=s+a[i,3];
   p:=p*a[i,i];
   end; 
   writeln('summa= ',s,'; произведение= ',p);
 for i:= 1 to 4 do
 for j:= 1 to 4 do 
begin 
h:=h+a[i,j];
   o:=h/16;
 end;
 writeln('среднее арифметическое= ',o);
end.