Комментарии: Решаем задачи Абрамян на Паскале. Series15

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 18:59:57 +0000

//ручной ввод, pascalABC.net
begin
  var k:=ReadlnInteger('k =');
  writeln('введите числа:');
  writeln('индекс: ',ReadSeqIntegerWhile(t->t<>0).ToArray.FindIndex(t->t>k)+1);
  readln;readln;
end.

//ручной ввод, pascalABC.net

begin

var k:=ReadlnInteger('k =');

writeln('введите числа:');

writeln('индекс: ',ReadSeqIntegerWhile(t->t<>0).ToArray.FindIndex(t->t>k)+1);

readln;readln;

end.

//из массива, pascalABC.net
begin
  var k:=6;
  var a:=ArrRandomInteger(20,0,10);a.Println;
  writeln('индекс: ',a.TakeWhile(t->t<>0).ToArray.FindIndex(t->t>k)+1);
  readln;
end.

//из массива, pascalABC.net

begin

var k:=6;

var a:=ArrRandomInteger(20,0,10);a.Println;

writeln('индекс: ',a.TakeWhile(t->t<>0).ToArray.FindIndex(t->t>k)+1);

readln;

end.

Автор: Bronislav

Bronislav — Mon, 11 Dec 2017 10:57:38 +0000

var
  i, j, num, k: integer;
begin
  write('введите целое число k: ');
  read(k);
  i := 0;
  j := 0;
  num := 1;
  while num <> 0 do 
  begin
    inc(i);
    write('введите ', i, '-e число из набора: ');
    read(num);
    if (num > k) and (num <> 0) then begin
      j := i;
      break;
    end;
  end;
  write(j);
end.

var

i, j, num, k: integer;

begin

write('введите целое число k: ');

read(k);

i := 0;

j := 0;

num := 1;

while num <> 0 do

begin

inc(i);

write('введите ', i, '-e число из набора: ');

read(num);

if (num > k) and (num <> 0) then begin

j := i;

break;

end;

write(j);

end.

Автор: Anton

Anton — Mon, 31 Oct 2016 04:37:25 +0000

Да, проблема…
Поправил, как вы и сказали:
Было:

if ( R>K) and (num=0)  then num:=i;

1	if ( R>K) and (num=0) then num:=i;

Стало:

if ( R>K) and (num=0) and (R<>0)  then num:=i;

1	if ( R>K) and (num=0) and (R<>0) then num:=i;

Автор: Anton

Anton — Mon, 31 Oct 2016 04:36:07 +0000

В ответ на Newton. поправил ваш комментарий.

Автор: Newton

Newton — Sun, 30 Oct 2016 09:18:07 +0000

В ответ на Newton. *потерялось "не равно"

Автор: Newton

Newton — Sun, 30 Oct 2016 09:17:06 +0000

Думаю, необходимо доработать код с учетом такого сценария:

К = -3 // любое отрицательное число
1е число: -4
2е число: 0
В данном случае 0 будет воспринят как первое число больше установленного предела.

Достаточно добавить в условие:

and (R <> 0)

1	and (R <> 0)

Автор: Кирилл

Кирилл — Thu, 25 Dec 2014 20:21:24 +0000

Громоздко, но тоже верно

uses PT4;
var i,k,a:integer;
begin
  Task('Series15');
read(k);
a:=1;
while (a <> 0) do
  begin
    read(a);
    if (a>k) then
      begin
        i:=i+1;
        write(i);
        break;
      end
    else if (a<=k) and (a <> 0) then
      begin
        i:=i+1;
        continue;
      end;
    write(0);
  end;
end.

uses PT4;

var i,k,a:integer;

begin

Task('Series15');

read(k);

a:=1;

while (a <> 0) do

begin

read(a);

if (a>k) then

begin

i:=i+1;

write(i);

break;

end

else if (a<=k) and (a <> 0) then

begin

i:=i+1;

continue;

end;

write(0);

end;

end.