Дано натуральное число n. Найти среднее геометрическое первой и последней цифр заданного числа.

помогите написать программу в паскале.

Question

Рада

27 апреля, 15:07

+1

Ответы (1)

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

Миняша · Answer 1

Var

n, c:integer;

Begin

Write ('n = ') ; ReadLn (n) ;

c:=n mod 10;

While n div 10 > 0 do

n:=n div 10;

WriteLn (Sqrt (n*c))

End.

Дано натуральное число n. Найти среднее геометрическое первой и последней цифр заданного числа.помогите написать программу в паскале.