Урок 11 Задача 10

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

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

end.   
vedro-compota's picture

1) нет ссылки на условие
2) перепишем без break
3) по итогам работы кода в трех переменных должны быть три числа

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

Урок 11 Задача 10

var a, g, b: integer;
begin
  while (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;
          b := b + a;
        end;
     end;
  writeln('Symma =', b);
  readln();

end.
-31
Podhodyasee chislo =-31
-33
Podhodyasee chislo =-33
-22
-24
254
756
3
2134
7465
-788
-777
Podhodyasee chislo =-777
Symma =-841