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

Primary tabs

Submitted by Fara on Tue, 12/21/2021 - 09:46

Forums:

Задача 8 Урок 11:

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

var a, negative1, negative2, negative3: integer;

begin
  a:=1;
  while (a<>0) do
  begin
    writeln(' vvedite celoe chislo i nagmi enter: ');
    readln(a);
      if (a<0) and ((a mod 2)=-1) then
      begin
        negative3:=negative2;
        negative2:=negative1;
        negative1:=a;

      if (negative3<0) and (negative2<0)
        and (negative1<0) then
        break;
      end;

  end;

  write('tri otricateln chisla: ', negative1, ' ', negative2, ' ', negative3, ' ');
  readln();
end.

КОНСОЛЬ:

 vvedite celoe chislo i nagmi enter:
-3
 vvedite celoe chislo i nagmi enter:
-5
 vvedite celoe chislo i nagmi enter:
-7
tri otricateln chisla: -7 -5 -3
  • Log in to post comments
  • 1639 reads
vedro-compota's picture

vedro-compota

Wed, 12/22/2021 - 18:26

решить без обмена значений

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

Fara

Sat, 01/01/2022 - 16:31 

var i, min: integer;
begin
i:=1;
while i <= 3 do
begin
    writeln('vvedite celoe chislo ');
    readln(min);
    if (min < 0) AND  (min mod 2= -1) then
    begin
       i:=i+1;
       writeln('otvet:', min)
    end;
end;
end.
vedro-compota's picture

vedro-compota

Sun, 01/02/2022 - 13:10

засчитано

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