Количество четных элементов последовательности

@katya · Регистрация: 21.03.2012

Студворк — интернет-сервис помощи студентам

Ребята, помогите!!! Не понимаю задачу:
Определите количество четных элементов в последовательности, завершающейся числом 0.
Само число 0, и все, что следует за ним, учитывать не нужно.
Необходимо использовать оператор while

@CodeR · 18.01.2013, 08:56

Pascal

Var n,k:integer;
Begin
    n:=1;
    While n<>0 do
    Begin
      write('Число = ');
      readln(n);
      if (n<>0)and(n mod 2 = 0) then inc(k);
    End;
    writeln('Четных = ',k);
    readln;
End.

@katya 6 / 6 / 0 Регистрация: 21.03.2012 Сообщений: 184
		1
	Количество четных элементов последовательности 17.01.2013, 19:00. Показов 4768. Ответов 1 Метки нет (Все метки) Ребята, помогите!!! Не понимаю задачу: Определите количество четных элементов в последовательности, завершающейся числом 0. Само число 0, и все, что следует за ним, учитывать не нужно. Необходимо использовать оператор while 0

Опции темы

Количество четных элементов последовательности

Решение