Информатика | 10 - 11 классы
Дано натуральное число n.
Найти кубический корень из произведения цифр заданного числа.
ПАСКАЛЬ.
Сколько раз встречается заданная цифра в натуральном числе?
Сколько раз встречается заданная цифра в натуральном числе?
Паскаль, с помощью рекурсии.
Дано n натуральное?
Дано n натуральное.
Найти и вывести все числа в интервале от 10 до n - 1, у которых произведение всех цифр совпадает с суммой цифр данного числа.
Если таких чисел нет вывести "Нет".
Паскаль.
Дано трёхзначное число?
Дано трёхзначное число.
Найти произведение и частное второй и третей цифр
паскаль срочно.
Дано трёхзначное число?
Дано трёхзначное число.
Найти число, полученное при перестановке второй и третьей цифры заданного числа.
В Паскале abc.
Дано четырехзначное число?
Дано четырехзначное число.
Найти сумму и произведение второй и третьей цифр заданного числа.
Программа PascalABC.
Дано трёхзначное число?
Дано трёхзначное число.
Найти произведение и частное второй и третей цифр
паскаль срочно.
Дано натуральное число n?
Дано натуральное число n.
Найти отношение последней цифры к первой цифре заданного числа.
Помогите написать программу в Паскале.
Дано натуральное число n?
Дано натуральное число n.
Найти кубический корень из суммы квадратов цифр заданного числа.
ПАСКАЛЬ.
Помогите написать программу в паскале?
Помогите написать программу в паскале.
Задано натуральное число n.
Вычислить произведение цифр заданного числа.
Дано натуральное число n?
Дано натуральное число n.
Определить, во сколько раз произведение всех цифр заданного числа больше его первой цифры.
Помогите написать программу в паскале.
На этой странице вы найдете ответ на вопрос Дано натуральное число n?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 10 - 11 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
Var n, c, P : integer ;
Begin
Write('n = ') ;
ReadLn(n) ;
P : = 1 ;
While n > 0 do Begin c : = n mod 10 ; P : = P * c ; n : = n div 10 End ;
WriteLn('Куб кор = ', exp((1 / 3) * ln(P))) ;
End.