1.написать программу , которая вычисляет произведение цифр к-значного числа. 2. пусть элементами равносторон.треугольника являются : сторона a, высота h, площадь s, вписанная окружность r, описанная окружность r. составить программу , которая по заданному номеру и значению элемента , вычисляла бы значения всех остальных элементов
const k=?; {Вместо "?" подставить любое значение k}
Var x,i,s:integer;
Begin
write('x=');
readln(x);
s:=1;
for i:=1 to k do
begin
s:=s*(x mod 10);
x:=x div 10;
end;
writeln('s=',s);
End.