Интересное ! мне найти в интернете такой вопрос, чтобы на него - трудно было найти ответ в интернете. желательно скинуть ссылку на ответ. заранее

Что будет если в туалет поезда, идущего на полном ходу, кинуть лом? (правильный ответ найти сложно т.к. есть несколько версий) нк или где найти утилиту для снятия данных о входном-выходном напряжении apc 1500 через usb. (ищу второй день. если найдёшь - поделись ссылкой)

Думаю, что вы пишете программы на паскале. я в нём не силён, но попытаюсь решить: program name; var x, y, a, b: real; begin         write('введите x, y, a, b: ');         readln(x,y,a,b);         if (x > a) then begin               if(y > b) then begin                     write('треугольник со сторонами ', a);                     write(' и ', b, ' поместится на листе бумаги.');                     end;               else writeln('треугольник не поместится на листе бумаги');           else writeln('треугольник не поместится на листе бумаги'); end.

Var   x: array [1..5, 1..5] of real;   y: array [1..4, 1..4] of real;   i, j: byte;   sumx, sumy: real; begin sumx : = 0; sumy : = 0; writeln('массив x': 28); for i : = 1 to 5 do begin   for j : = 1 to 5 do   begin       x[i, j] : = random*40-20;       if x[i, j] < 0 then sumx : = sumx + x[i, j];       write(x[i, j]: 9: 4);   end;   writeln; end; writeln; writeln('массив y': 28); for i : = 1 to 4 do begin   for j : = 1 to 4 do   begin       y[i, j] : = random*40-20;       if y[i, j] < 0 then sumy : = sumy + y[i, j];       write(y[i, j]: 9: 4);   end;   writeln; end; writeln; writeln('сумма отрицательных массива x = ', sumx: 9: 4); writeln('сумма отрицательных массива y = ', sumy: 9: 4); if sumx > sumy then writeln('сумма отрицательных x - больше.') else if sumx < sumy then writeln('сумма отрицательных y - больше.') else writeln('сумма отрицательных x и y равны.') end.