Задача протестирована на pascalABC
Каталог (как то так,напишу еще че нить,ибо так 20 символов)
program raf105;
var
a:array[1..10] of integer;
x,i,c: integer;
begin
writeln('Заполните массив:');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10-1 do
if ((a[i]+a[i+1]) mod 2 = 0) and ((a[i]+a[i+1]) mod 4 <> 0)
then c+= 1;
writeln('Вывод: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
//Я к сожелению знаю С#, но языки похожи (чем - то)
int a = 10;int b = 20;int c = 30;int d = 40;int aa = 90;int bc = 100;int dac = 30;int bdc = 50;int cc = 70;int dc = 80;int aac = 90;int bbc = 10;
// Это 10 нат. чисел
//////////long Deystvie1 = a + b + c + d + aa + bc + cc + dc + dac + bdc + aac + bbc;long Deystvie2 = a * b * c * d * aa * bc * cc * dc * dac * bdc * aac * bbc; /////////Console.WriteLine("Произведение чисел:", Deystvie2);Console.WriteLine("Сумма чисел:", Deystvie1);
Каждое понятие имеет объем - количество элементов в него входящее. Если объем равен 1, то это единичное понятие.
Например, Полярная звезда, Луна (как естественный спутник Земли), созвездие Большой медведицы - то, что существует в единственном экземпляре.
Общие понятия - в объем которых входит более одного предмета.
Например, ученик, доктор, город...