Дана непустая последовательность различных натуральных чисел, за каторой следует 0. Определить порядковый номер 0

2

Ответы и объяснения

2013-01-17T14:23:35+00:00

var

  c, tmp : integer;

begin

  c := 0;

  tmp := 1;

  repeat

    read (tmp);

    inc (c);

  until tmp = 0;

  writeln (c);

end.

  • Kitsu
  • почетный грамотей
2013-01-17T15:23:35+00:00

var i:integer;

c:char;
begin
while c<>'0' do begin
readln(c);
inc(i);
end;
writeln(i);
end.