Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
ПОМОГИТЕ! Ошибка в последовательности! Чё то не понимаю!
Задача № 4
Дана последовательность неотрицательных чисел, последнее из которых равно нулю, причём других равных нулю чисел в последовательности нет. Вычислить произведение положительных чисел этой последовательности.

program Posledovatelnost;
var
a,b:integer;
begin
Writeln('Введите через пробел последовательность положительных чисел, окончание ввода "0"');
read(a);
b:=1;
while a<>0 do begin
if a>=0 then b:=b*a;
read(a);
end;
if b<>1 then writeln('Произведение положительных чисел последовательности = ',b)
else writeln('В последовательности кроме нуля нет элементов');
end.

единственный минус при вводе последовательности "1 0" тоже выводит что в последовательности нет элементов!!!
ПОМОГИТЕ ПЛИЗ!!!
1 | Автор: tolyanl1985 | 2013-01-08, 18:59   |  Репутация: [ + 0 ]
while a<>0 do begin

перед этим поставь:
if a<>1 then ...


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-01-08, 21:23   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: