НУЖНО Добавьте в текст 3 сноски, и к которым будут даны определения ​

канал - 5букв

телевизор,компьютер 9букв

крик - 4буквы

на паскале:

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

а) компьютер, предназначенный для эксплуатации одним пользователем, то есть для личного использования.

б)совокупность программ, процедур и правил, а также документации, относящихся к функционированию системы обработки данных .

в) комплекс и обрабатывающихпрограмм, которые, с одной стороны, выступают как интерфейс между  устройствами вычислительной системы иприкладными программами, а с другой стороны  — предназначены для устройствами, вычислительными процессами, эффективного распределения вычислительных ресурсов между вычислительными процессами и организации надёжных вычислений. это определение применимо к большинству современных операционных систем общего назначения.

г)поименованная последовательность байтов.

д)лицо илиорганизация, которое использует действующую систему для выполнения конкретной функции.

е)разновидность интерфейсов, в котором одна сторона представлена человеком (пользователем), другая  — машиной/устройством. представляет собой совокупность средств и методов, при которых пользователь взаимодействует с различными, чаще всего сложными, машинами, устройствами и аппаратурой.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.