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

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

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

Решение:

var a,b,c,s,i:integer;
begin
  i:=1;
  while i<=3 do
  begin
    writeln('vvedite chislo');
    readln(s);
    if (s<0)and((s mod 2)<>0) then
    begin
      c:=b;
      b:=a;
      a:=s;
      i:=i+1;
      if (a<0)and(b<0)and(c<0) then
      begin
        writeln('summa otricatelnyh chisel = ',a+b+c);
        writeln('Poka');
        break;
      end;
    end;
  end;
  readln();
end.

Консоль:

vvedite chislo
1
vvedite chislo
2
vvedite chislo
-1
vvedite chislo
-2
vvedite chislo
-3
vvedite chislo
0
vvedite chislo
-6
vvedite chislo
-5
summa otricatelnyh chisel = -9
Poka