Гнездо для ножки деревянной кровати имеет форму прямоугольной вырезки. определить, подойдет ли данный четырехугольный брусок для этого гнезда.

program denisden4ik; uses crt; var   a1,a2,b1,b2: real; begin  writeln('введите размеры вырезки ');   write('ширина '); read(a1);   write('длина '); read(a2);   writeln('введите размеры сечения бруска ');   write('ширина '); read(b1);   write('длина '); read(b2);   writeln();   if ((a1=b1) and (a2=b2)) or ((a1=b2) and (a2=b1)) then      writeln('этот брусок подойдет')          else writeln('этот брусок не подойдет'); end.

если для этого нужно написать программу, то смотри(паскаль):

 

uses crt; var a,b,c,d,p,p1: real; beginclrscr; write('длина вырезки '); read(a); write('ширина вырезки '); read(b); p: =2*(a+b); write('длина сечения бруска '); read(c); write('ширина сечения бруска '); read(d); p1: =2*(c+d);

writeln;

if (p=p1) thenbeginif (c=a) or (c=b) then write('подойдет')else write('не подойдет'); endelse write('не подойдет'); end.

Const   nn = 20; var   a: array[1..nn, 1..nn] of integer;   i, j, n, k: integer; begin   write('введите число строк (столбцов) матрицы: '); readln(n);   randomize;   writeln('исходная матрица');   for i : = 1 to n do   begin       for j : = 1 to n do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;   writeln('количество отрицательных элементов по столбцам');   for j : = 1 to n do   begin       k : = 0;       for i : = 1 to n do           if a[i, j] < 0 then inc(k);       write(k: 4)   end;   writeln end. тестовое решение: введите число строк (столбцов) матрицы: 10 исходная матрица   22  12 -15 -42  29  49  26 -26  -3  -5   18  45    2    2  -3 -28  20 -15 -16  29     7  48 -13 -33  38 -22  39  28  -6 -50   23  37 -33  50    7  27  39  -8 -35  43     1  17 -11 -29 -35  -1 -27  37 -25 -36     8 -49 -17  34 -27  24 -26 -32 -30    0   -41  48  30  -3  23  31  28    3  45  20   -16 -23 -30  -8 -23  40    9 -35 -48 -12   -45 -49    2 -20  -7  21    4 -16  26  33     3  21 -29  15  33    4  38  43  -1 -15 количество отрицательных элементов по столбцам     3    3    7    6    5    3    2    6    8    5

ответ:

самый заезженный пример – факторизация (разложение на простые множители) целых чисел [1]. некто взял простые числа x и y, сообщил  вам  их произведение x*y.  вам  нужно  выполнить  обратную операцию: зная только x*y, найти эти x и y. например,  вам  сообщают число 143, а  вы  в ответ  должны  назвать 11 и 13, потому что 11*13 = 143.

пока никто не придумал алгоритм, который позволил бы классическому компьютеру раскладывать числа на простые множители за разумное время. на сегодняшний день рекордное достижение – разложение 768-битного (или 232-значного) числа на  два  простых 384-битных (116-значных) множителя, на что ушло несколько лет работы коллектива исследователей [2].

суммарно все  процессоры, задействованные в переборе,  выполнили  примерно 10^20 (100 квинтиллионов) операций. если бы  вы  попробовали повторить эти  вычисления  на одноядерном  процессоре  с частотой  2.2  ггц,  вам  пришлось бы ждать ответа примерно 2000 лет.