Question

Uses crt; var n,s,s1,s2,k: integer; begin writeln('введите число: '); readln(n); s: =0; s1: =0; s2: =0; while n> 0 do begin inc(k); if k mod 2 = 0 then begin s: =s+n mod 10; n: =n div 10; end else begin s1: =s1+n mod 10; n: =n div 10; end; if k mod 2 = 0 then s2: =s1 else s2: =s; end; writeln('symma=',s2); end. надо сделать чтобы считало произведение . такова.дано число,найти произведение цифр стоящих на четных местах.

Answer 1

Uses crt;
var
n,p:integer;
begin
writeln('Введите число: ');
readln(n);
p:=1;
while n>=10 do begin
p:=p*(n mod 100 div 10);
n:=n div 100;
end;
writeln('p = ',p);
end.

Пример:
Введите число: 
236584
p = 96