Задача № 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" тоже выводит что в последовательности нет элементов!!!
ПОМОГИТЕ ПЛИЗ!!!
|
|
|
|
while a<>0 do begin
перед этим поставь:
if a<>1 then ...
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
