1. Да, так как часто мошенники для достижения своих целей прибегают к помощи технических средств.
Program gt;
var x1,x2,y1,y2:integer;
begin
readln(x1,y1,x2,y2);
if ((abs(x1-x2)<=1)and(abs(y1-y2)<=1))then writeln('YES')else
writeln('NO');
end.
If (a+b) < c then
if (b+c) < a then
if (a+c) < b then writeln("Exists");
Заполнение с клавиатуры:
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
Write('Введите a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn('S = ',S);
End.
Заполнение случайными числами:
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(A[i],' ');
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.