[Nevil_White]

Дали задание, последовательность чисел. Нужно узнать количество парных.
Как бы все просто это цикл, а как узнать парное число или нет?

[NumLock]

Определение: Два простых числа N1 и N2, где N2> N1 называются парными, если N2 - N1 = 2.

как-то так...

[Nevil_White]

Мм, уже сам догадался.
программно это будет так:

Код:

if (a mod 2 =0)

[NumLock]

через mod можно узнать четное число или нет, а не парные числа.

[Nevil_White]

Продолжаем по теме:

Код:

program zadanie9;
type charset=set of byte;

var set1:set of 1..30;
j,i,res:integer;

begin
    j:=0;

    set1:=[15,4,5,7,9,6,4,8,5,2,3,19,13,13,17,19,15,11,3,22,27,26,24,27,25,29,14,9,13,21];
    
    
    for i:=1 to 30 do
    begin
        if i in set1 then j:=i;

        begin
   
        if (j mod 2=0) then res:=res+1;
        end;
    end;
    writeln('Четных чисел: ', res);

end.

Проблема в том что в результат не правильный, а массив использовать нельзя

[lmikle]

Сообщение от Nevil_White

Продолжаем по теме:

Код:

program zadanie9;
type charset=set of byte;

var set1:set of 1..30;
j,i,res:integer;

begin
    j:=0;

    set1:=[15,4,5,7,9,6,4,8,5,2,3,19,13,13,17,19,15,11,3,22,27,26,24,27,25,29,14,9,13,21];
    
    
    for i:=1 to 30 do
    begin
        if i in set1 then j:=i;

        begin
   
        if (j mod 2=0) then res:=res+1;
        end;
    end;
    writeln('Четных чисел: ', res);

end.

Проблема в том что в результат не правильный, а массив использовать нельзя

Что занчит "нельзя использовать массив"? А откуда ты будешь брать числа? С консоли?

Да, и еще, а кто будет res инициализировать?

ЗЫ. Вроде ты хотел парные числа, или все-таки четные нужны?