Произведение Чисел В Последовательности

tolyanl1985

New member
19.11.2012
4
0
#1
Дана последовательность неотрицательных чисел, последнее из которых равно нулю, причём других равных нулю чисел в последовательности нет. Вычислить произведение положительных чисел этой последовательности

решил так:

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('Произведение положительных чисел последовательности = ',:)
else writeln('В последовательности кроме нуля нет элементов');
end.
;)
Оказывается неправильно, контрольную вернули! Осталась неделя, полный попенгаген! Помогите братцы!!!
Всё считает, но есть загвоздка когда вводишь последовательность "1 0" пишет ответ "В последовательности нет элементов" В чём ошибка подскажите плиз!!! Заранее огроменное спасибо
 

nayke

Well-known member
04.08.2010
310
0
#2
Код:
program Posledovatelnost; 
var 
a,b:integer; 
flag:boolean;
begin 
Writeln('Введите через пробел последовательность положительных чисел, окончание ввода "0"'); 
read(a); 
b:=1; 
flag:=false;
while a<>0 do begin 
if a>0 then 
begin 
flag:=true; 
b:=b*a; 
end;
read(a); 
end; 

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

end.
 
R

rrrFer

#3
очевидно произведение последовательности из единиц равно 1, поэтому выполнится та ветка:
Код:
else writeln('В последовательности кроме нуля нет элементов');
 

tolyanl1985

New member
19.11.2012
4
0
#4
Код:
program Posledovatelnost; 
var 
a,b:integer; 
flag:boolean;
begin 
Writeln('Введите через пробел последовательность положительных чисел, окончание ввода "0"'); 
read(a); 
b:=1; 
flag:=false;
while a<>0 do begin 
if a>0 then 
begin 
flag:=true; 
b:=b*a; 
end;
read(a); 
end; 

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

end.


Огромное Спасибо!!!