25 ! что здесь неправильно: program programma2; begin var n: if n< 1 then writeln('right') else writeln ('false'); end.

var &

ответ:

после n; точка с запятой, а не двоеточие

Program dmas_20; uses crt; const   m=4; var a: array[1..m,1..m] of integer;     max, sum, imax, i, k: integer; begin randomize;   for i: =1 to m do begin for k: =1 to m do begin a[i,k]: =random(50);   write(a[i,k]: 4); end; writeln; end;   sum : = 0;   for k: =1 to m do    sum : = sum + a[1,k];   max : = sum;     imax : = 1;   for i: =2 to m do    begin     sum : = 0;     for k: =1 to m do  sum : = sum + a[i,k];     if sum > max then  begin       max : = sum;       imax : = i;     end;     end; writeln('номер строки ', imax, ' сумма элементов   ', max ); readln;   end.

ответ:

самый заезженный пример – факторизация (разложение на простые множители) целых чисел [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 лет.