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.

Надо сделать чтобы считало произведение.

задача такова. Дано число, найти произведение цифр стоящих на четных местах.

Question

Информатика

Творимир

5 мая, 15:47

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.

Надо сделать чтобы считало произведение.

задача такова. Дано число, найти произведение цифр стоящих на четных местах.

+4

Ответы (1)

Знаете ответ?

Феликса · 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