Урок 11 задача 8

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

var a, g: integer;
begin
  a := 1;
  g := 0;
  while (a <> 0) do
        begin
        readln(a);
        if ((a < 0) and ((a mod 2) <> 0) and (g < 3)) then
           begin
           writeln('Podhodyasee chislo =', a);
           g := g + 1;
           end;
        if (g = 3) then
           break;
        end;
  readln();

end. 
vedro-compota's picture

переписать без break

_____________
матфак вгу и остальная классика =)

var a, g: integer;
begin
  a := 1;
  g := 0;
  while ((a <> 0) and (g = 3)) do
    begin
      readln(a);
      if ((a < 0) and ((a mod 2) <> 0) and (g < 3)) then
        begin
          writeln('Podhodyasee chislo =', a);
          g := g + 1;
        end;
    end;
  readln();
end.