Петя очень любит играть в шахматы. Он просит создать программу, которая ему рассчитывать передвижение шахматной фигуры «король». Данная фигура ходит по горизонтали, вертикали или диагонали на одну клетку. Программа получает на вход четыре числа от 1 до 8 каждое. Первые два числа — задают координаты местонахождения короля в данный момент (номер строки и столбца), Два других числа — координаты клетки, в которую необходимо переместить фигуру (гарантируется, что клетки не совпадают). Программа должна вывести "Да", если из первой клетки ходом короля можно попасть во вторую, иначе — "Нет".

Бонус! Реши задачу при условии, что пользователь может ввести одинаковые клетки. В таком случае программа должна выводить "Нет".​

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

это чего у тебя запоролено? если  microsoft word то

advanced office password recovery позволяет восстанавливать пароли либо обходить парольную защиту файлов и документов, созданных в продуктах семейства microsoft office всех версий. в данный момент поддерживаются версии с 2.0 по 2010 включительно. программа поддерживает документы, созданные microsoft word , excel, access, outlook, project, money, powerpoint, visio, publisher, а также onenote. кроме перечисленного, программа позволяет получить доступ к исходным текстам vba макросов, защищенных паролем.

самый распространенный  способ    защиты  файлов    заключается в использовании числовых значений, полученных из    пароля  , как ключа для шифрования документа.    в      microsoft    office (до office xp) для шифрования документов  word    использовался именно этот метод c 40-разрядным ключом.  способ    взлома такой защиты заключается в подборе 40-разрядного цифрового ключа. перебираются все возможные варианты, пока не будет найден подходящий. раньше подобная защита считалась надежной, но при производительности современных компьютеров, подбор 40-разрядного ключа под силу даже среднему компьютеру за вполне реальное время.

любая программа, использующая пароли, беззащитна перед утилитами, перебирающими все возможные варианты. менее эффективны утилиты, пытающиеся подставить вместо пароля слова из собственного словаря. при использовании полного перебора взлом пароля остается только вопросом времени. например, быстро подбираются пароли длиной 6-7 символов, в которых используются символы одного алфавита в одном регистре. значительно сложнее дело обстоит со сложными паролями из большого количества символов, да еще и использующие все возможные символы, например, на подбор такого пароля уйдет много времени: 1l337pa5sw0rd[].

program a1; var a: array[1..30] of integer;       amax,amin,i,imin,imax,n,s: integer; beginwriteln('введите n элементов массива'); readln(n); for i: =1 to n do a[i]: =random(30); writeln('введённый массив имеет вид'); for i: =1 to n do write(a[i], '  '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do  if a[i]> amax then begin  amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do  if a[i]< amin then begin  amin: =a[i]; imin: =i; end; writeln('полученный массив имеет вид'); s: =a[imin];

a[imin]: =a[imax];

a[imax]: =s; for i: =1 to n do  writeln(a[i],'  '); end.

к серому волку. потому что и к серому волку и к бабушке сразу пойти нельзя.