[Halz]

Всем привет.помогите пожалуйста!!!!! мне надо решить простейшую задачку просто кровь из носа.

Во введенном с клавиатуры многострочном тексте подсчитать и вывести на экран кол-во целых четных и кол-во целых нечетных чисел.

[Redstason]

Код:

  var
   i,count1,count2: integer;
begin
 i:=0;
 while (i<Length(Str)) do
 begin
  if (Str[i]%2) then //нечетное
   Inc(count1)
  else
    Inc(Count2);
  Inc(i);
 end;
end;

[Aristarh Dark]

Пример решения во вложении.

[Halz]

Спасибо огромное!!!!!!!!!!!! Вы мне можно сказать жизнь спасли.