Какое число задумали буратино и пьеро, если в результате алгоритма(задумай число, умножь на 200, подели на 10, отними 50, прибавь 28) получились числа 138 и 198?

198-28+50*10: 200=11 задумал пьеро

138-28+50*10: 200=8 задумал буратино

ответ: 11, 8

 

Program primer; procedure random(c,x,y: integer; var r: integer);     begin           case c of                     1 : r: =random(abs(y)+abs(x)+1)+x;                   2 : r: =random(abs(y)+abs(x)+1)+y;                     3 : r: =random(y-x+1)+x;                     4 : r: =random(x-y+1)+y;                     5 : r: =random(x+y);                   6 : r: =random(abs(x+(x+y);                   7 : r: =x;                   8 : r: =random(abs(abs(x)-abs((x);                   9 : r: =random(abs(abs(x)-abs((y);           end;     end; var   a: array of array of integer;   i,j,x,y,m,p,pro,c: integer;     begin randomize; pro: =1; writeln('кол-во строк и столбцов массива? //x,y\\   '); read(i,j); //размерность массива writeln('диапазон чисел //от x,до y\\ ');   read(x,y); //и диапазон генерации вводятся с клавиатуры. if (x=y) then c: =7 else if(x< 0) and (y< 0) then  if (x< y) then  c: =8 else c: =9 else if (x=0) or (y=0) then  if(x< 0) or (y< 0) then  c: =6 else c: =5 else if(x< 0) or (y< 0) then  if (x< y) then  c: =1 else  c: =2 else if (x< y) then  c: =3 else  c: =4; setlength(a,i); for   m: =0 to i-1 do   setlength(a[m],j);     for   m: =0 to i-1 do begin    writeln();       for   p: =0 to j-1 do   begin                             random(c,x,y,a[m,p]);     {заполнить матрицу случайными числами }              if (m< > p) then pro: =pro*a[m,p]; { вычислить произведение элементов массива, лежащих вне главной диагонали.}             write (a[m,p]: 3,' ': 3);               end;               end;       writeln('pro=',pro);             a: =nil;                 end.// abc pascal

Язнаю тип вирусов "троянские программы" эти программы маскируются под видом других системных приложений и атакуют компьютер 1. создал вирус о котором я рассказываю  студент фред  коэн,запустив вирус на компьютер  vax  он убедился что вирус размножается с невероятной скоростью! и в  зависимости от условий может заразить весь компьютер за время от 5 минут до 1 часа! испугавшись студент прекратил свой  эксперимент.в следующем году студент написал научную работу по этой теме. 2. этот вирус пришёл из пакистана и назывался "мозг" лекарство от него появилось только в 1988 году! к тому времени количество вирусов возрастало и их становилось всё больше   и  больше 3. вирус  jerusalem в 1988 году  отформатировал жесткие диски в пятницу 13. он был создан в израиле. этот вирус напугал много пользователей. потому-что тогда антивирусы были диковинкой. а вреда вирус приносил много к примеру при попытке запуска заражённого файла сразу-же заражал его! я когда наступала пятница 13 он просто форматировал жесткий диск.