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

Primary tabs

Submitted by NikSo on Tue, 08/02/2022 - 12:20

Forums:

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

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

program Lesson8;
var a,b,c,d,i: integer;
begin
  i:=0;
  while (i<3)  do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    if (a<0) and ((a mod 2)<>0) then
    begin
      i:=i+1;
      if (i=1) then
        b:=a
      else if (i=2) then
        c:=a
      else if (i=3) then
        d:=a;
    end;
  end;
  writeln(b,' ',c,' ',d);
  readln();
end.
  • Log in to post comments
  • 851 reads
vedro-compota's picture

vedro-compota

Wed, 08/03/2022 - 20:20 

if (i=1) then
        b:=a
      else if (i=2) then
        c:=a
      else if (i=3) then
        d:=a;

-- можно упростить, есть лишняя проверка

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

NikSo

Thu, 08/04/2022 - 09:23 

program Lesson8v1;
var a,b,c,i: integer;
begin
  i:=0;
  while (i<3)  do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    if (a<0) and ((a mod 2)<>0) then
    begin
      i:=i+1;
      if (i=1) then
        b:=a
      else if (i=2) then
        c:=a
    end;
  end;
  writeln(b,' ',c,' ',a);
  readln();
end.

NikSo

Thu, 08/04/2022 - 09:25

какой вариант предпочтительнее?

program Lesson8;
var a,b,c,d,i: integer;
begin
  i:=0;
  while (i<3)  do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    if (a<0) and ((a mod 2)<>0) then
    begin
      i:=i+1;
      d:=c;
      c:=b;
      b:=a;
    end;
  end;
  writeln(d,' ',c,' ',a);
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 09/14/2022 - 20:01

засчитано

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