C клавиатуры вводятся 30 чисел.Найти произведение положительных чисел.
C клавиатуры вводятся 30 чисел.Найти произведение положительных чисел.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer;
begin
writeln('введите 30 чисел');
readln(a);
b:=1;
c:=1;
while b<>30 do begin
if a > 0 then c:=a*c;
readln(a);
b:=b+1;
end;writeln('ответ ',c);
end.
Не нашли ответ?
Похожие вопросы