Question

100 баллов Паскаль

На вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. Определить, сколько получено чисел больше 0, и найти их произведение.

Answer 1

Program n1;

var a,p,k: integer;

begin

k:=0;

p:=1;

readln(a);

while(a<>0) do begin

if a>0 then begin

k:=k+1;

p:=p*a;

end;

readln(a);

end;

writeln('k>0: ',k);

write('p=',p);

end.