1.
x не кратно 4 x mod 4 <>0
-5<x<-2 (x>-5)and(x<-2)
x принадлежит [-1,5] (x>=-1)and(x<=5)
2.
uses crt;
var n1,n2,n3:byte;
begin
writeln('Введите 3 разных числа от 1 до 9 по порядку:');
readln(n1,n2,n3);
if(n2-n1=3)and(n3-n2=3)then write('На вертикали!');
readln
end.
Мне кажется, что знаки, у которых много названий.
Например # - диез, решетка, шарп, хеш, октоторп
@ -Коммерческое ЭТ, а в разных странах этот разделитель в электронной почте как только не называют: собачка, кошка, улитка, обезьяний хвост, червячок, селедка, чокнутый "А" и много- много др.разных названий, у кого с чем ассоциируется и кто как договорится называть то, что, фактически, не имеет названия.
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.