1. Написать программу, которая вычисляет произведение цифр к-значного числа.

2. пусть элементами равносторон. треугольника являются: сторона a, высота h, площадь S, вписанная окружность r, описанная окружность R. составить программу, которая по заданному номеру и значению элемента, вычисляла бы значения всех остальных элементов

Question

Информатика

Агриппич

1 мая, 13:13

1. Написать программу, которая вычисляет произведение цифр к-значного числа.

2. пусть элементами равносторон. треугольника являются: сторона a, высота h, площадь S, вписанная окружность r, описанная окружность R. составить программу, которая по заданному номеру и значению элемента, вычисляла бы значения всех остальных элементов

+5

Ответы (1)

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

Витюля · Answer 1

Решу только первую задачу.

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.