Решаем задачи Абрамян на Паскале. Series16

Series16. Дано целое число $$K$$ и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер последнего числа в наборе, большего $$K$$. Если таких чисел нет, то вывести 0.

Решение:

program Series16;
var
 num,i,R,K:Integer;
begin
write('Введите K : ');
readln(K);
R:=1;
i:=0;
num:=0;
 while(R<>0) do
 begin
 i:=i+1;
 write('Введите ',i,' число из набора :');
 Readln(R);
 if R>K then num:=i;
 end;
 Writeln(num);
end.

program Series16;

var

num,i,R,K:Integer;

begin

write('Введите K : ');

readln(K);

R:=1;

i:=0;

num:=0;

while(R<>0) do

begin

i:=i+1;

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

Readln(R);

if R>K then num:=i;

end;

Writeln(num);

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 5

Bronislav

11.12.2017 в 15:19

15 строка and R не равно нулю иначе посчитает ноль при отрицательном К

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

1

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

Ответить

Все как и в предыдущей задаче только break убрать, ну можно еще begin и end в if тоже, будет короче

var
  i, j, num, k: integer;

begin
  write('введите целое число k: ');
  readln(k);
  i := 0;
  j := 0;
  num := 1;
  while num <> 0 do 
  begin
    inc(i);
    write('введите ', i, '-e число из набора: ');
    readln(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: ');

readln(k);

i := 0;

j := 0;

num := 1;

while num <> 0 do

begin

inc(i);

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

readln(num);

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

j := i;

// break;

end;

write(j);

end.

Ответить

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

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

begin

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

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

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

readln;readln;

end.

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

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

begin

var k:=6;

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

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

readln;

end.

Ответить

Anton

22.02.2018 в 08:11

Почитал ваш код… во што превратили язык … пошёл отпаиваться чаем и привыкать 🙂

Ответить
- Bronislav
  
  23.02.2018 в 12:51
  
  Если привыкнуть, то весьма наглядно читается код. Опять же не захламляется, только то, что нельзя впихнуть в методы, а там наверное очень много чего понапихали.
  
  Ответить

Решаем задачи Абрамян на Паскале. Series16

Комментарии:

Комментарии 5

Добавить комментарий Отменить ответ