Технический форум - Решите пожалуйста задачи по Delphi

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Решите пожалуйста задачи по Delphi (http://www.tehnari.ru/f41/t86615/)

Решите пожалуйста задачи по Delphi

Кот Матроскин и Шарик загадывали четные и нечетные числа в произвольном порядке, пока не кончилось место на печке, где они записывали эти числа. Определить, каких чисел было загадано больше: четных или нечетных, если последним было записано число 0 (0 при подсчете не учитывать!). Сколько четных чисел предшествовало первому нечетному? Вводятся целые числа(типа Integer), последним вводится 0. Всего вводится не более 1000 чисел.
Вывести: в первой строке количество чисел, которых было записано больше.
во второй строке вывести количество четных чисел, предшествующих первому нечетному. Если нечетных чисел не встретилось, вывести 0.

ПРИМЕР ВВОДА:
2 1 3 4 5 6 7 8 9 0

ПРИМЕР ВЫВОДА:
5
1

ПРИМЕР ВВОДА:
2 4 6 8 10 0

ПРИМЕР ВЫВОДА:
5
0

Замечание:

Не следует цепляться к чужим темам. Создал новую.

Модератор

консольный режим.

Код:

program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils;

var

a,i:integer;

het,nehet:integer;

bol:boolean;

begin

i:=0;

het:=0;

nehet:=0;

Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.');

Read(a);

bol:=true;

While (a<>0) do

begin

if (a mod 2)=0 then

  begin

  inc(het);

  if bol then inc(i);

  end;



if (a mod 2)=1 then

  begin

  inc(nehet);

  bol:=false;

  end;

Read(a);

end;

Writeln('Otvet');

if nehet>het then Writeln(nehet);

if het>nehet then Writeln(het);

if nehet=het then Writeln(nehet,'=',het);

if nehet=0 then Writeln(0)

else Writeln(i);

readln;

readln;

end.