сервис вопросов и ответовНаписать программу на Паскале. Дано натуральное число. Вычислить среднее геометрическое нечетных цифр.
10-11 класс|
|
Maks16o
13 марта 2014 г., 15:25:20 (10 лет назад)
тёма20032
13 марта 2014 г., 16:44:11 (10 лет назад)
var n, c, d, p: integer;
begin
readln(n);
p := 1;
while n<>0 do begin
d := n mod 10;
n := n div 10;
if d mod 2 = 1 then begin
p := p * d;
c := c + 1;
end;
end;
if c = 0 then writeln (0)
else writeln(Exp(Ln(p)/c):0:3);
end.
Ответить
Другие вопросы из категории
Всем привет, помогите написать программу в паскале, смысл прост. Программа должна переводить число из шестнадцатиричной системы счисления в дестяричную и
наоборот, тоесть после вводе числа- FFF программа должна вывести число 4095 и ниже снова FFF, программа должна быть простая и не слишком умная. Заранее спасибо
Помогите, пожалуйста. Нужно срочно..
Три свидетеля падения метеорита сообщили сведения траектории падения. Один утверждал, что наблюдал падение красного метеорита в лесной массив, Второй - чёрный метеорит упал в озеро, а Третий – метеорит был точно не красный, и по все вероятности, что упал в болото. Когда удалось отыскать метеорит, выяснилось, что каждый из свидетелей определил правильно лишь один из параметров падения, а в другом ошибся. Куда упал метеорит и какого был цвет?
1)
Метеорит красного цвета
2)
Лес
3)
Метеорит черного цвета
4)
Озеро
5)
Болото
Читайте также
Помогите, пожалуйста написать программу на паскаль
Дано натуральное число. Вычислить количество цифр, являющихся степенями тройки (1,3,9).
1.Дано натуральное число:
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
СРОЧНО ПЛИИИЗ Задача: Дано действительное число Х, вычислить
(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64) (дробь)
Используя оператор: while
Не могу написать через данный оператор программу на паскаль, выходит всегда число 0. Прошу помочь мне :)
Помогите написать программу на C#
Дано натуральное число n. Написать программу вычисляющую сумму
Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
Вы находитесь на странице вопроса "Написать программу на Паскале. Дано натуральное число. Вычислить среднее геометрическое нечетных цифр.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.