Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
хХхмхХх
14.11.2021 21:11 •
Информатика
Дано натуральное число n. найти кубический корень из суммы квадратов цифр заданного числа. паскаль.
Показать ответ
Ответ:
fvgfds
06.10.2020 10:47
Program hhh54;
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=Exp(ln(x)/3);
write (x:0:3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ELOGE
12.09.2022 01:40
Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: торты| пироги 12000торты & пироги 6500...
rufergem
09.06.2021 01:05
Выражение а+а с черточкой( и над двумя буквами а огромная общая черта) используя законы . логики...
katesgo
09.06.2021 01:05
4. какой канал передачи информации как правило используют для соединения двух серверов? a) кросс кабель b) оптоволокно c) витая пара d) коаксиальный кабель...
Plild
23.01.2020 04:55
Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом через while или until паскаль...
SnegRainbow
03.12.2020 00:18
На скамейки сидит аня и ее мама бабушка и кукла.бабушка сидит рядом с внучкой но не с куклой, кукла не сидит с мамой, кто сидит с мамой?...
olya12011
17.05.2020 22:58
Никак не могу найти ,осталось отгадать одно слово (смешанная не подходит) ••••••ная по вертикали, 9 буквы. сеть представляет собой комбинацию различных топологий...
edakovagfffgg
31.01.2023 16:15
Что такое операционная система (ос)? какие основные функции она выполняет?...
annayotubeanna
31.01.2023 16:15
Программа на pascal abc. с клавиатуры вводится маленькими буквами строка, необходимо для каждого символа вывести, а) сколько раз его употребили и б) частоту употребления...
Tavvi
11.01.2022 18:41
1)определите,какое из указанных имен файлов удовлетворяет маске: ? el*.t*xt а) spell.txt б)pencil.text в)el.txt г)welcome.text 2)дано: a=dd_{16},b=337_{8}.какое...
Dimatrubilov
09.08.2021 05:29
Написать программу на с++ . найти сумму элементов последовательности b1, , b15 , расположенных правее последнего отрицательного элемента и номер этого элемента....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=Exp(ln(x)/3);
write (x:0:3);
end.