Uses crt;
Type R=array[1..100] of integer;
Var
A:R;
i,n,s,pr,k,sum:integer;
Begin
clrscr;
pr:=1;
k:=0;
sum:=0;
writeln('Введите размер массива');
readln(n);
writeln('Введите значение S');
readln(s);
writeln('Введите массив');
for i:=1 to n do
begin
write('A[',i,']= ');
read(A[i]);
writeln;
if A[i]<=s then
pr:=pr*A[i];
if A[i]=1 then
k:=k+1;
if A[i]=A[1] then
sum:=sum+A[i];
end;
writeln('Массив после преобразования');
for i:=1 to n do
begin
if A[i]<>i then
A[i]:=sum;
writeln(A[i]:4);
end;
writeln;
writeln('произведение элементов вектора, не превышающих число S: ', pr);
writeln('количество единичных элементов массива: ', k);
end.
Условие: (x % 4 == 0 and x % 100 != 0) or x % 400 == 0
Рассмотрим скобку x % 4 == 0 and x % 100 != 0:
x % 4 == 0 — число делится на 4 без остатка, т.е. кратно 4-мx % 100 != 0 — число не делится на 100 без остатка, т.е. не кратно 100and говорит о том, что обязательно должны выполняться оба этих условия: число должно быть кратно 4-м И не кратно 100
Вторая часть условия:
x % 400 == 0 — число делится на 400 без остатка, т.е. кратно 400or говорит о том, что либо выполняется условие в скобке, либо то, которое идет после or:
число должно быть кратно 4-м И не кратно 100, ИЛИ число должно быть кратно 400
Пример чисел, которые удовлетворяют условию:
0
4
8
12
128
400
1600
Например, 200 не подойдет:
200 % 4 == 0 — да
200 % 100 != 0 — нет
200 % 400 == 0 — нет
(да И нет) ИЛИ нет = нет ИЛИ нет = нет
