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

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

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

var numb, check: integer;
begin
check:=0;
while check < 3 do
begin
    writeln('vvedite chislo: '); readln(numb);
    if (numb < 0) and (numb mod 2= -1) then
      begin
         check:=check+1;
         writeln('otricatelnoe i nechetnoe chislo: ', numb);
      end;
end;
readln();
end.
vedro-compota's picture

решение засчитано

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