Дана программа, решающая определенную . проделать следующую работу: сформулировать условие , которую решает данная программа. указать, какую (ие) (и) решает (ют) процедура (ы) в программе. procedure pr(n: integer; var p, k: integer); begin p : = 1; k : = 0; while n < > 0 do begin if n mod 2 = 0 then begin p : = p * (n mod 10); k : = k + 1 end; n : = n div 10 end; end; var n, p, kol: integer; begin write('n? '); readln(n); pr(n, p, kol); writeln('произведение ', p); writeln('количество ', kol) end.
