Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите! Ошибка в последовательности! Чё то не понимаю!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
tolyanl1985
Задача № 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" тоже выводит что в последовательности нет элементов!!!
ПОМОГИТЕ ПЛИЗ!!!
-Федосеев Павел-
Цитата(tolyanl1985 @ 8.01.2013 19:09) *

if b<>1 then writeln('Произведение положительных чисел последовательности = ',b)
else writeln('В последовательности кроме нуля нет элементов');

Ну, действительно, почему для последовательности 1 0, с произведением равным 1 получается такой ответ?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.