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

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 17:03:46 +0000

//автоматический ввод из массива, pascalABC.net
begin
  var a:=ArrRandomInteger(50,0,20);a.Println;
  a.TakeWhile(t->t<>0).Println;
  a.TakeWhile(t->t<>0).Count.Println;
end.

//автоматический ввод из массива, pascalABC.net

begin

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

a.TakeWhile(t->t<>0).Println;

a.TakeWhile(t->t<>0).Count.Println;

end.

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 17:02:20 +0000

//ввод вручную, pascalABC.net 
begin
  writeln('введите числа');
  writeln('количество чисел в наборе = ',ReadSeqIntegerWhile(t->t<>0).Count)
end.

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

begin

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

writeln('количество чисел в наборе = ',ReadSeqIntegerWhile(t->t<>0).Count)

end.

Автор: Anton

Anton — Thu, 17 Dec 2015 05:18:42 +0000

Я в задаче сам себе усложнил жизнь.
и вывожу номер числа, что при -1 сбивается. поэтому добавил

i:=0;

i:=0;

, так как переменные всё равно надо обнулять.
Убрал 12 строчку и изменил

Writeln('в наборе ',i,'чисел');

1	Writeln('в наборе ',i,'чисел');

на

Writeln('в наборе ',i-1,'чисел');

1	Writeln('в наборе ',i-1,'чисел');

Автор: olegst1975

olegst1975 — Wed, 16 Dec 2015 13:53:32 +0000

Решение Антона: присвоить значение i до входа в цикл, например, 5 строку на
R:=1; i:=-1;
и как следствие 12 строку убрать

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

Кирилл — Mon, 22 Dec 2014 17:12:50 +0000

Немного мудрёно, но тоже работает:

uses PT4;
var num,k:integer;
    i: boolean;
begin
  Task('Series12');
  i:=true;
while i=true do
  begin
  read(num);
  k+=1;
  if num=0 then
    begin
      i:=false;
      write(k-1);
    end;
  end;
end.

uses PT4;

var num,k:integer;

i: boolean;

begin

Task('Series12');

i:=true;

while i=true do

begin

read(num);

k+=1;

if num=0 then

begin

i:=false;

write(k-1);

end;

end.