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

Series9. Дано целое число $$N$$ и набор из $$N$$ целых чисел. Вывести в том же порядке номера всех нечетных чисел из данного набора и количество $$K$$ таких чисел.

Решение:

program Series9;
var
  i,N,R,K:Integer;
begin
  K:=0;
  Write('Введите N: ');
  Readln(N);
  for i:=1 to N do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     if (R mod 2) <>0 then
     begin
       Writeln(i);
       inc(K,1);
     end;
   end;
  Writeln(K);
end.

program Series9;

var

i,N,R,K:Integer;

begin

K:=0;

Write('Введите N: ');

Readln(N);

for i:=1 to N do

begin

Write('Введите ',i,' число: ');

Readln(R);

if (R mod 2) <>0 then

begin

Writeln(i);

inc(K,1);

end;

Writeln(K);

end.

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

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

olegst1975

16.12.2015 в 16:05

В задаче …номера всех нечетных чисел …поэтому 14 строку предлагаю поправить

Writeln(i);//i - как порядковый номер вводимых чисел

1

Writeln(i);//i - как порядковый номер вводимых чисел

Ответить
- Anton
  
  17.12.2015 в 09:06
  
  Поправил:
  Было:
  
  Writeln(R);
  
  1
  
  Writeln(R);
  
  Стало:
  
  Writeln(i);
  
  1
  
  Writeln(i);
  
  Ответить

begin
  var n:=ReadlnInteger('n =');
  println('введите',n,'целых чисел');
  var a:=ReadArrInteger(n);//a.Println;
  write('индексы нечетных: '); a.IndexesOf(t->t.isOdd).Println;
  writeln('всего нечетных: ',a.Count(t->t.isOdd));//или так a.Where(t->t.isEven).Count
  readln;
end.

begin

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

println('введите',n,'целых чисел');

var a:=ReadArrInteger(n);//a.Println;

write('индексы нечетных: '); a.IndexesOf(t->t.isOdd).Println;

writeln('всего нечетных: ',a.Count(t->t.isOdd));//или так a.Where(t->t.isEven).Count

readln;

end.

Ответить

Bronislav

21.02.2018 в 15:17

Ошибка в 6 строке комментарий //или так a.Where(t->t.isOdd).Count

Ответить

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

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

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

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