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

Primary tabs

Submitted by jl8qy9kd_pro on Thu, 07/22/2021 - 11:12

Forums:

http://fkn.ktu10.com/?q=node/7341

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

var i, k: integer;
begin
 i := 0;
 k := 0;
    while((i < 0) or (i >= 0)) do
       begin
        writeln('vvedi celoe chislo');
        readln(i);
        if((i < 0) and ((i mod 2 )<> 0) and (k < 3)) then
          begin
           writeln(i, ' ');
           k := k + 1
          end ;
          if(k = 3) then
            break;
       end;
  readln();
end.
  • Log in to post comments
  • 1434 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 13:54 

 while((i < 0) or (i >= 0))

-- лучше использовать другое условие, тогда можно обойтись без break

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

jl8qy9kd_pro

Tue, 07/27/2021 - 10:14 

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

vedro-compota

Tue, 07/27/2021 - 18:50

решение засчитано

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