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

Primary tabs

Submitted by MrDeadSummer on Sun, 07/25/2021 - 18:20

Forums:

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

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.
  • Log in to post comments
  • 1251 reads
vedro-compota's picture

vedro-compota

Thu, 07/29/2021 - 20:38

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

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

MrDeadSummer

Thu, 07/29/2021 - 22:08 

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.