Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC сортировка матрицы https://www.cyberforum.ru/ pascalabc/ thread215137.html
помогите пжлст) Отсортировать строки числовой матрицы в порядке возрастания (сверху вниз) элементов первого столбца. Добавлено через 16 часов 30 минут плиз...
Помгите, пожалуйста, с массивами Pascal ABC
1.Дано два одномерных массива действительных чисел s и z, где i=1,2,3...n, (N=10) В массиве s задан стаж работы (не более 35 лет) работников некоторого предприятия. В массиве z известен размер...
Pascal ABC Массивы https://www.cyberforum.ru/ pascalabc/ thread215039.html
1.Дан вещественный массив а1,а2,...аn. Если в этом массиве есть хотя бы один элемент, принадлежащий отрезку , то все элементы, не принадлежащие этому отрезку, заменить значением К. 2.В заданной...
Pascal ABC Разветвляющийся вычислительный процесс. Нужна помощь На переменную W^k в первой строчке(Картинка снизу 15-е задание) нужно взять условие на четность и не четность. Как это записать , подскажите пожалуйста. Program Z2_3; Var... https://www.cyberforum.ru/ pascalabc/ thread215022.html
Pascal ABC Какой суммарный путь пробежит спортсмен за 7 дней?
Начав тренировки,спортсмен в первый день пробежал 10км.Каждый следущий день он увеличивал дневную норму на 10% от нормы предыдущего дня.Какой суммарный путь пробежит спортсмен за 7 дней?
Pascal ABC Надо написать программу по массивам! Дана матрица размером m*n( где m,n-заданные константы) из целых чисел.определить произведение максимального и минимального элементов больше 20 или нет? (пожалуйста помогите написать программу) https://www.cyberforum.ru/ pascalabc/ thread214912.html
Pascal ABC Проверьте эту гипотезу Гольдбаха для всех четных чисел, не превышающих число 50 https://www.cyberforum.ru/ pascalabc/ thread214905.html
1)В некотором году (назовем его условно первым) на участке в 100 гектаров средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5 %, а...
Частота слов Pascal ABC
Разработать программу анализа текстового файла: определение частоты слов. Помогите пожалуйста в написании заданой процедуры
Pascal ABC срочно надо блок-схему к готовому массиву!! https://www.cyberforum.ru/ pascalabc/ thread214877.html
задача:выполнить обработку элементов прямоугольной матрицы A,имеющей N строк и M столбцов.дан номер строки L и номер столбца K при помощи которых исходная матрица разбивается на 4 части.найти среднее...
Pascal ABC ошибка в программе Выдает ошибку подскажите пожалуйста что не так uses GraphABC; var i : integer; begin Window.Title := 'Функция'; var ww := Window.Width; var wh := Window.Height; for i := 0 to 1000 do begin https://www.cyberforum.ru/ pascalabc/ thread214876.html
Pascal ABC 2-мерны Массивы, составить программу!!
Задание: дана матрица размером M*N (где m,n заданные константы) из целых чисел. Определить произведение максимального и минимального элементов больше 20 или нет?
Pascal ABC Упорядочить по возрастанию часть последовательности Написать программу,которая упорядочивает по возрастанию ту часть последовательности, которая находиться после минимального элемента этой последовательности. ... https://www.cyberforum.ru/ pascalabc/ thread214838.html
76 / 76 / 51
Регистрация: 28.02.2010
Сообщений: 159
19.12.2010, 23:41 0

Дано целое число N>0.Если оно являеться степенью числа 3, то вывести True,если не являеться-вывести false. - Pascal ABC - Ответ 1219787

19.12.2010, 23:41. Показов 2756. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено LirikY как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var n,a:integer;
 
Begin
write('N= ');readln(n);
a:=1;
Repeat
a:=a*3;
 
Until (a=n) or (a>n);
 
if a=n then writeln('true')
else
writeln(false);
end.


Вернуться к обсуждению:
Дано целое число N>0.Если оно являеться степенью числа 3, то вывести True,если не являеться-вывести false. Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2010, 23:41
Готовые ответы и решения:

Если число является степенью числа 3, то вывести True, если нет, то False
Дано целое число N (> 0). Если оно есть степенью числа 3, то вывести TRUE, если нет, то False...

Цикл: Если число ялвляется степенью числа 3, то вывести TRUE а если не является - False
помогите задачку на паскале решить через while!!!!!!!!!! Дано целое число N (>0). Если оно...

While: Если число является степенью числа 3, то вывести True
Условие: Дано целое число N (>0). Если оно является степенью числа 3, то вывести True, если не...

Дано целое число N (> 1). Если оно простое, то вывести сообщение: «Число N простое», иначе вывести сумму делителей
1) Дано целое число N (> 1). Если оно простое, то вывести сообщение: «Число N простое», иначе...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2010, 23:41

Если в наборе имеется числа меньше к, то вывести true, если нет - false
1) n>0 .Найти сумму n*n+(n+2)*(n+2)+...+(2*n)*(2*n) 2)n>1.Вывести наименьшее из целых чисел k,для...

Дано целое число.если оно евляется положительным то прибаветь к нему 1,в противном случае вычесть из него 2.вывести полученое число
Дано целое число.если оно евляется положительным то прибаветь к нему 1,в противном случае вычесть...

Если в наборе имеются числа, меньшие K, то вывести TRUE, в противном случае вывести FALSE
Pascal. Даны целые числа K, N и набор из N целых чисел. Если в наборе имеются числа, меньшие K, то...

Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE
Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru