#include<stdio.h>
#include<conio.h>
int main(int argc, char *argv[])
{
char S[256];
gets(S);
int L = 0;
while(S[++L]);
int i = L / 2;
L = i + L % 2;
while(i>=0)
if (S[--i] != S[L++]) i = -3;
printf(i!=-3?"DA":"NET");
getch();
}
<span>Система, включающая в себя другие. Это более сложная система, имеющая свое предназначение, структуру, законы, ресурсы и сознание, в которую заданная система входит как подсистема </span>
<span>В соответствии с принципом иерархичности любая система одновременно является надсистемой для своих элементов и подсистемой для своей надсистемы. </span>
Подсистема <span>- это набор объектов и подсистем, обеспечивающих некоторую функциональность, и взаимодействующих между собой в соответствии с их интерфейсами. Интерфейс подсистемы представляет собой подмножество объединения интерфейсов всех объектов и подсистем, составляющих эту подсистему. В состав подсистемы может входить один, или более взаимозависимых объектов и/или подсистем.</span>
Разберем, куда сместился чертёжник по координатам x и y после выполнения программы:
x = 3*(-2) - 1 = -6 - 4 = -10
y = 3*(-3) - 2 = -9 - 2 = -11
Если предположить, что чертежник изначально был в начале координат, то он окажется в точке (-10, -11), чтобы вернуться в начало ему нужно выполнить команду "Сместиться на вектор (10, 11)".
Program sashka9595;
uses crt;
const n=20;
var
a:array[1..n] of integer;
max,i,j,k: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
randomize;
writeln('Массив: ');
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
for i:=1 to 3 do
begin
k:=i;
max:=a[i];
for j:=i+1 to n do
if a[j]>max then
begin
max:=a[j];
k:=j;
end;
a[k]:=a[i];
a[i]:=max;
end;
writeln();
writeln('Три наибольших элемента массива:');
for i:=1 to 3 do
writeln(i,'-й: ',a[i]);
end.
Ответ:
1001001
P. S. Двуличная система это любопытно :)