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

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

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

Решение:

var i,s:integer;
begin
  i:=1;
  while i <= 3 do
  begin
    writeln('vvedite chislo ');
    readln(s);
    if (s<0)and(s mod 2 <> 0) then
    begin
      writeln(i,'-e otricatelnoe nechetnoe chislo = ', s);
      i:=i+1;
    end;
  end;
  writeln('Poka!');
  readln();
end.

Консоль:

vvedite chislo
1
vvedite chislo
2
vvedite chislo
-1
1-e otricatelnoe nechetnoe chislo = -1
vvedite chislo
-2
vvedite chislo
-3
2-e otricatelnoe nechetnoe chislo = -3
vvedite chislo
0
vvedite chislo
-5
3-e otricatelnoe nechetnoe chislo = -5
Poka!