Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Анастасия105
17.03.2023 04:55 •
Информатика
Паскаль составить программу для проверки, можно ли заданное натуральное число n представить в виде куба простого числа.
Ответ:
Aron91
15.07.2020 17:28
Var n,k,m:integer;
begin
readln(n);
for k:=1 to n do
begin
m:=k*k*k;
if m=n then
begin
writeln(k,'*',k,'*',k,'=',n);
exit;
end;
end;
if (m<>n) then
writeln('Het');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Никола11111111
20.06.2022 06:45
25 ! 1. сколько раз обновится переменная максимума при нахождении максимального элемента в массиве [54, 7, 86, 72, 82, 74, 91, 62, 81, 75]? изначально переменная инициализирована...
диана2434
07.03.2022 17:51
Даны 4 целых числа, записанные в двоичной системе: 10001011, 10111000, 10011011, 10110100. сколько среди них чисел, больших, чем a4(16)+20(8)? в скобках системы счисления....
Sofia667
16.01.2022 09:59
Вячейку с3 ведена формула =а3*в3, маркером автозаполнения протянем ее до ячейки с10. в ячейке с10 будет формула...
999Roman999999991
28.04.2020 20:44
Скорость передачи данных составляет 8192 бит в секунду.на передачу файла понадобилось 2 минуты 8 секунд.опредилите объем в кбпйт...
wikawolchkowa
12.03.2022 01:31
Мне ! выполните по информатике! окружающие нас объекты (предметы, явления, существа и так далее) можно систематизировать различными выполните систематизацию, заполнив таблицу....
TS1311
05.11.2020 21:42
Укажите вид односоставных предложений. 1) Без труда не вытянешь и рыбку из пруда. 2) Приветствую тебя, пустынный уголок! 3) Канун новогоднего праздника. 4) В воздухе пахнет...
nadyasvetlakov
07.04.2022 03:37
Выбери три верные утверждения. (Запиши в ответе цифры в порядке их возрастания. Пример: 345 .) 1. Первые фотосинтезирующие организмы возникли в протерозойскую эру. 2. Наземные...
англиский33
12.01.2022 22:58
1. Вставьте подходящие по смыслу слова: much, many, little, few, some, any. 1. We haven`t gotmilk. (много) 2. Bob likes sugar in his tea. (много) 3. She hasmoney. (много)...
Rororor11111
18.04.2020 12:39
С бахчи всего собрали 3240 кг репы,огурцов, и моркови.Если огурцов собрали 1/4часть ,репы 1/4 часть и моркови 2/4часть .то сколько кг каждого вида овощей собрали этот задачу...
BTSExo1
03.03.2020 02:21
Подумать, проанализировать цитаты и подготовиться к беседе по во к ним. 1. «Достойна удивления разность между государственными учреждениями Петра Великого и временными его...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(n);
for k:=1 to n do
begin
m:=k*k*k;
if m=n then
begin
writeln(k,'*',k,'*',k,'=',n);
exit;
end;
end;
if (m<>n) then
writeln('Het');
end.