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

Primary tabs

Submitted by studentmedic on Sun, 05/15/2022 - 15:25

Forums:

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

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

program Variant1;
var a, b, c, d: integer;
begin
  a := 1;
  b := 1;
  c := 1;

  while (c > 0) OR (b > 0) OR (a > 0) do
  begin
    readln(d);
    if ((d < 0) AND ((d mod 2) <> 0)) then
      c := b;
      b := a;
      a := d;
  end;
  writeln(a, b, c);
  readln();
end.

program Variant2;
var a, b: integer;
begin
  a := 1;
  b := 0;

  while (b < 3) do
  begin
    readln(a);
    if ((a < 0) AND ((a mod 2) <> 0)) then
      b := b + 1;
      writeln(a, ' ');
  end;

  readln();
end.
  • Log in to post comments
  • 500 reads

Neoanthropus

Fri, 07/29/2022 - 15:40 

var a, b, c, d: integer;
begin
   a := 1;
   b := 1;
   c := 1;
   while (c > 0) do
   begin
     writeln('vvedite chislo');
     readln(d);
    if ((d < 0) AND ((d mod 2) <> 0)) then
    begin
      c := b;
      b := a;
      a := d;
    end;
  end;
  writeln(a, ' ', b, ' ', c);
  readln();
end.