Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 03.11.2018, 13:44   #1
Olga2208
Новичок
 
Регистрация: 03.11.2018
Сообщений: 1
Репутация: 10
По умолчанию Дано натуральное число

Дано натуральное число x. Найдите среднее геометрическое цифр в его записи. (Паскаль)
Olga2208 вне форума   Ответить с цитированием
Старый 03.11.2018, 13:45   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 12,499
Репутация: 2073
По умолчанию

Разрешаю. Приступайте к выполнению.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 03.11.2018, 14:05   #3
Вадим Мошев
гигаМодератор :)
Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 7,692
Репутация: 3715
По умолчанию

Olga2208, Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.
Вадим Мошев вне форума   Ответить с цитированием
Старый 13.11.2018, 20:12   #4
digitalis
Профессионал
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 1,033
Репутация: 392
По умолчанию

А тут можно по разному трактовать. Или символьного представления цифр числа, или значения составляющих его разрядов. Хотя если строго, то
Без вариантов - в задании сказано "в записи"
цифра - это символ
'1' = $31 etc.

Код:

var i: integer ;  s,n: real ;
begin  
   n := 0 ;
   s := 1 ;   
   readln (i) ;
   while i>0 do
     begin
       s := s * ((i mod 10) + $30) ;
       n := n + 1.0 ;
       i := i div 10
     end ;
    s := Exp(Ln(s) / n) ; { s ^ (1/n) )
   writeln (s) ;
end.

Isn't it ?

Последний раз редактировалось digitalis; 13.11.2018 в 21:49.
digitalis вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано натуральное число n maximoff09 Фриланс 15 30.10.2015 10:36
дано натуральное число... fara2105 Паскаль 14 27.06.2013 14:41
Дано натуральное число... Amir93 Паскаль 4 11.12.2011 11:26


03:48.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru