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

Primary tabs

Submitted by Neoanthropus on Mon, 06/20/2022 - 23:10

Forums:

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

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

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
      c := b;
      b := a;
      a := d;
  end;
  writeln(a, b, c);
  readln();
end.

Консоль:

vvedite chislo
1
vvedite chislo
2
vvedite chislo
-1
vvedite chislo
-3
vvedite chislo
-7
-7-3-1
  • Log in to post comments
  • 1989 reads
vedro-compota's picture

vedro-compota

Wed, 07/13/2022 - 20:41

неправильное форматирование. Исправить это, а потом уже займемся алгоритмом

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

Neoanthropus

Fri, 07/29/2022 - 18:43 

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.

Neoanthropus

Fri, 07/29/2022 - 19:28

Вариант 2:

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

vedro-compota

Wed, 08/03/2022 - 20:35

засчитано

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