задача на цикл

[Reshebnik]

№1.С клавиатуры вводится последовательность чисел оканчивающихся отрицательным числом. Определите, сколько было введено нулей? если нулей не было, то выведите об этом информацию.

№2. С клавиатуры вводится последовательность чисел оканчивающихся нулём. Определите, сколько чисел было введено положительных, у которых последнее число 5.

[Алексей_2012]

Извиняюсь за кривой код, но вроде должно работать, просто паскаля нет под рукой

uses crt;
var i,l:integer;
s:string[255];
begin
l:=0;
clrscr;
writeln('VVEDITE SIMBOLI');
readln(s);
for i:=1 to length(s) do if s[i]='0' then inc(l);
if l=0 then writeln('nulei HET!!') else writeln(l,' nulei');
readln;
end;

Если помог, то жмите на весы))

[interacia]

№1.С клавиатуры вводится последовательность чисел оканчивающихся отрицательным числом. Определите, сколько было введено нулей? если нулей не было, то выведите об этом информацию.

program Series20;
var
Nuli:integer;
a:real;
begin
Nuli:=0;
Writeln('Введите чисела.');
Read(a);
While a>=0 do
begin
if a=0 then inc(Nuli);
Read(a);
end;
Writeln;
if Nuli = 0 then Writeln('Нулей в последовательности нет')
else Writeln('количество Нулей в последовательности равно ',Nuli);
end.

[Reshebnik]

Сообщение от interacia

program Series20;
var
Nuli:integer;
a:real;
begin
Nuli:=0;
Writeln('Введите чисела.');
Read(a);
While a>=0 do
begin
if a=0 then inc(Nuli);
Read(a);
end;
Writeln;
if Nuli = 0 then Writeln('Нулей в последовательности нет')
else Writeln('количество Нулей в последовательности равно ',Nuli);
end.

не работает

[BDA]

Сообщение от Reshebnik

не работает

Как определили?
(исправьте a:real; на a:integer;, чтобы сравнение с нулем было корректным, но и в таком виде программа мне выдала правильный ответ - наверное, испугалась выдать неправильный)

interacia, действительные числа нельзя сравнивать с нулем напрямую, а нужно с некоторой наперед заданной точностью (для надежности).

[Reshebnik]

Сообщение от BDA

Как определили?
(исправьте a:real; на a:integer;, чтобы сравнение с нулем было корректным, но и в таком виде программа мне выдала правильный ответ - наверное, испугалась выдать неправильный)

interacia, действительные числа нельзя сравнивать с нулем напрямую, а нужно с некоторой наперед заданной точностью (для надежности).

когда пишу числа в программу, он просто меня отправляет на другую строчку, будь это то чилом больше нуля или равным.

[BDA]

var
  Nuli: integer;
  a: integer;

begin
  Nuli := 0;
  Writeln('Введите чисела.');
  Read(a);
  While a >= 0 do
  begin
    if a = 0 then
      inc(Nuli);
    Read(a);
  end;
  if Nuli = 0 then
    Writeln('Нулей в последовательности нет')
  else
    Writeln('количество Нулей в последовательности равно ', Nuli);
  readln;
  readln;
end.

Все верно. В условии же сказано, что последовательность заканчивается ОТРИЦАТЕЛЬНЫМ числом, т.е. пока Вы не введете отрицательное число и не подтвердите ввод, программа будет в цикле работать.

[Reshebnik]

Сообщение от BDA

var
  Nuli: integer;
  a: integer;

begin
  Nuli := 0;
  Writeln('Введите чисела.');
  Read(a);
  While a >= 0 do
  begin
    if a = 0 then
      inc(Nuli);
    Read(a);
  end;
  if Nuli = 0 then
    Writeln('Нулей в последовательности нет')
  else
    Writeln('количество Нулей в последовательности равно ', Nuli);
  readln;
  readln;
end.

Все верно. В условии же сказано, что последовательность заканчивается ОТРИЦАТЕЛЬНЫМ числом, т.е. пока Вы не введете отрицательное число и не подтвердите ввод, программа будет в цикле работать.

понял уже ошибку, спасибо большое