Var i,j,n,x,kol:int64; begin read(n); for i:=1 to n do begin for j:=1 to n do begin read(x); if (i>j)and((x mod 2)=0) then inc(kol); end; end; writeln(kol); end.
{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5} program zadacha; vara: array[1..255] of byte;i,n,k: integer; beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end; k:=0;writeln();for i:=1 to n do begin if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then begin k:=k+1; write(a[i]:6); end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.
Это знаки для обозначения логических операций: a) отрицание (инверсия, логическое НЕ) обозначается ¬ (например, ¬А);
b) конъюкция логическое умножение, логическое И) обозначается /\ (например, А /\ В) либо & (например, А & В);
c) дизъюнкция (логическое сложение, логическое ИЛИ) обозначается \/ (например, А \/ В);
вдруг пригодится, есть еще такие знаки:
d) следование (импликация) обозначается → (например, А → В);
e) тождество обозначается ≡ (например, A ≡ B). Выражение A ≡ B истинно тогда и только тогда, когда значения A и B совпадают (либо они оба истинны, либо они оба ложны);
f) символ 1 используется для обозначения истины (истинного высказывания); символ 0 – для обозначения лжи (ложного высказывания).
begin
read(n);
for i:=1 to n do begin
for j:=1 to n do begin
read(x);
if (i>j)and((x mod 2)=0) then inc(kol);
end;
end;
writeln(kol);
end.