плиз помогите дописать программу на паскале,заранее пасибо

Question

Александр · Accepted Answer

Var a,N:longint; 
P:double; 
begin 
writeln('N'); 
readln(N); 
P:=1; 
if N>0 then 
do begin 
a:=N mod 10; 
if a div 2 0 then P:=P*a; 
N:=N div 10; end; 
if P=1 then writeln ('error') 
else writeln (P:9:2); 
end while N>0 .

Ренат · Answer

Ну а какие проблемы? Если знаешь работу оператора Repeat, то нужно просто сообразить, какое условие в Until прописать. А сам алгоритм практически останется без изменений. И если ты говоришь, типа помогите дописать, то выкладывай код того, что нужно дописать, и говори, что не получается.