Помогите пожалуйсто!срочно надо!Для N чисел подсчитать кол-во тех чисел,которые в остатке дают 2.вывести на экран!

1

Ответы и объяснения

Лучший Ответ!
2012-05-13T22:56:04+04:00

var n,na,i,a,chislo: integer;

begin

  na:=0;

  writeln('Введите количество чисел');

  readln(n);

  writeln('Введите число, на которое нужно делить');

  readln(chislo);

  for i:=1 to n do begin

    writeln('Введите число');

    readln(a);

    if a mod chislo=2 then na:=na+1;

                         end;

  writeln('Количество чисел, которые дают в остатке 2 равно ',na);

end.