1. переменные обувная фабрика собирается начать выпуск элит- ной модели ботинок. дырочки для шнуровки будут рас- положены в два ряда, расстояние между равно a, а расстояние между дырочками в ряду b. количество дырочек в каждом ряду равно n. шнуровка должна про- исходить элитным способом «наверх, по горизонтали в другой ряд, наверх, по горизонтали и т.д.» (см. рисунок кроме того, чтобы шнурки можно было завязать бантиком, длина свободного конца шнурка должна быть l. какова должна быть длина шнурка для этих ботинок? программа получает на вход четыре натуральных числа a, b, l и n (именно в таком порядке) и должна вы- вести одно число – длину шнурка.

//pascal //1) var   a: array[1..5, 1..8] of integer;   i, j: byte;   sumr, sumc: integer; begin   randomize;   writeln('исходный массив': 28);   for i : = 1 to 5 do   begin       for j : = 1 to 8 do       begin           a[i, j] : = random(61)-30;           write(a[i,j]: 5);           if i = 3 then sumr : = sumr + a[i, j];           if j = 5 then sumc : = sumc + a[i, j];       end;   writeln;   end;   writeln('сумма элементов 5 столбца = ', sumc);   writeln('сумма элементов 3 строки = ', sumr); end. //2) var   a: array[1..5, 1..8] of integer;   i, j: byte;   suma, sumb, countv, countg: integer; begin   randomize;   writeln('исходный массив': 28);   for i : = 1 to 5 do   begin       for j : = 1 to 8 do       begin           a[i, j] : = random(300)-150;           write(a[i,j]: 5);           if ((i = 5) and (a[i, j] < 0)) then suma : = suma + a[i, j];           if ((j = 4) and (a[i, j] < 100)) then sumb : = sumb + a[i, j];           if ((i = 4) and (a[i, j] < 5)) then countv : = countv + 1;           if ((j = 2) and (a[i, j] > 15)) then countg : = countg + 1;       end;   writeln;   end;   writeln('сумма отрицательных 5 строки = ', suma);   writeln('сумма меньших 100 4-ого столбца = ', sumb);   writeln('количество меньших 5 4-ой строки = ', countv);   writeln('количество ненулевых, больших 15 2-ого столбца = ', countg); end.

program z2;

var q,s,n,x,y,m,w,a,b,c: real;

begin

write ('введите число a=');

readln (a);

write ('введите число b=');

readln (b);

write('введите число c=');

readln (c);

x : = c+sqrt(a)*sin(sqrt(c));

y : = sin(3*b)*cos(3*b);

s : = sqrt(a-x/y);

m : = ln(1+sin(a));

w : = sqrt((b+c)/(a*a-1))+(a/(c*b)); //error x2

n : = sqrt(b+(m/w));

q : = sqrt((3+s)/(8-n)); //error x4

writeln(q);

end.

объяснение:

комментарии - кол-во ошибок(делал для себя) , крч говоря 2 лишних корня и пара скоьок в действии q, и вроде бы лишние скобки в w , но тут уже можно будет зрительно сравнивать