Question

Пусть в переменной b находится 4-х значение число. Напишите команду нахождения произведения средних цифр этого числа.​

Answer 1

var b,p,a:integer;

begin

readln(b);

p:=1;

b:=b div 10;

a:=b mod 10;

p:=p*a;

b:=b div 10;

a:=b mod 10;

p:=p*a;

writeln(p);

end.