Предмет: Информатика,
автор: robik308
Дано натуральное число n. Найти среднее геометрическое первой и последней цифр заданного числа.
помогите написать программу в паскале.
Ответы
Автор ответа:
0
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,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.
Похожие вопросы
Предмет: Немецкий язык,
автор: iraaaa90
Предмет: Математика,
автор: arinatop777
Предмет: Литература,
автор: sharabanovromik
Предмет: Литература,
автор: aleksandrrudnev