Здесь очень просто: телевидение и интернет ( можно добавить телефон)
Какой же ответ? Если ничего не написано?
<span>Program integral;
uses crt;
Var
A : string;
Begin
clrscr();
A := 'интеграл';
writeln ('a) ', A [5] + A [7] + Copy (A, 2, 3) + A [8] + A [1]);
writeln ('б) ', A [6] + A [4] + Copy (A, 2, 2) + A [5] +
A [4] + A [2]);
writeln ('в) ', A [3] + A [1] + Copy (A, 5, 2));
writeln ('г) ', A [7] + A [5] + A [4] + Copy (A, 2, 2));
readln();
End.</span>
Получение - выходим на улицу, чтобы узнать погоду.
Хранение - животные хранят некую информацию, например, они помнят место своего обитания.
С использованием составных условий:
Program Type1;
Var X1, Y1, X2, Y2: Integer;
BeginWriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 = -X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 = -X2) And (Y1 = Y2) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (X1 = X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.
<span>Без использования составных условий:
</span>
Program Type2;
Var X1, Y1, X2, Y2: Integer;
Begin
WriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 + X2 = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 + X2 = 0) And (Abs(Y1) - Abs(Y2) = 0) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (Abs(X1) - Abs(X2) = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.
