Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Найти номер первого символа слова, содержащего максимальное количество букв «а» Составить программу для решения предложенной задачи. Дан текст. Слова текста разделены одним или несколькими пробелами. Найти номер первого символа слова, содержащего максимальное количество букв «а». https://www.cyberforum.ru/ pascal/ thread1486080.html	Pascal По заданной матрице смежности вершин неориентированного графа определить, является ли данный граф деревом По заданной матрице смежности вершин неориентированного графа определить, является ли данный граф деревом. Если является, то построить орграф, выбрав в качестве корня вершину с заданным номером m....
Pascal Вывести на печать все числа, расположенные до первого минимального элемента последовательности https://www.cyberforum.ru/ pascal/ thread1485979.html Составила программу в паскале на эту задачу:Составить программу для решения предложенной задачи. Дана последовательность чисел. Вывести на печать все числа расположенные до первого минимального...	Pascal Определить, можно ли привести весы в состояние равновесия Даны двухчашечные весы и набор гирек. На левую чашу весов положили взвешиваемый предмет весом K граммов. Можно ли привести весы в состояние равновесия, и если можно, то определите для каждой чаши... https://www.cyberforum.ru/ pascal/ thread1485964.html
Калькулятор Pascal В новой программе OpenCalculator появилась новая возможность – можно настроить, какие кнопки отображаются, а какие – нет. Если кнопка не отображается на экране, то ввести соответствующую цифру с...	Pascal Удаление элементов массива между нулями как избавиться от чисел между нулями 1 2 3 0 6 8 9 0 7 5 4 ? https://www.cyberforum.ru/ pascal/ thread1485524.html
Pascal Получение количества и произведения цифр числа Var x, a, b: integer; Begin Readln(x); A:=0; b:=1; While x > 0 do begin A:= a + 1; B:=b*(x mod 100); X:= x div 100; End; Writeln(a); writeln(b); https://www.cyberforum.ru/ pascal/ thread1485470.html	Написать программу, которая выдает последовательность звуков с заданными частотами Pascal Написать программу, которая выдает последовательность звуков с частотами 440,880, 1320, 1760 Гц, длительностью 1 сек. Народ, кинет кто похожие программы или примеры? Буду очень признателен
Pascal Вычисление определенных интегралов с заданным шагом интегрирования https://www.cyberforum.ru/ pascal/ thread1484889.html Пробовал решить задачу Вычисление определенных интегралов с заданным шагом интегрирования несколькими методами: Метод прямоугольников uses crt; var i,n:integer; a,b,h,x,e,s1,s:real;...	Pascal Составить блок схему к готовому коду type st = (left, middle, right); nat = 1..maxint; var m: nat; {m – число дисков} procedure move(n: nat; s1, sw, sk: st); {перемещение n дисков с s1 на sk} https://www.cyberforum.ru/ pascal/ thread1484886.html
Используя интерполяционную формулу Лагранжа, вывести в виде таблицы значения функции Pascal Используя интерполяционную формулу Лагранжа, вывести в виде таблицы значения функции f (x) для точек x с заданным шагом, если из-вестны значения функции f (xi) в узлах xi. Отрезок интерполирования...	Pascal Моделирование. На пружине подвешено 3 груза На пружине подвешано 3 груза:с1-расстояние от крепления пружины до первого груза,с2-расстояние от первого груза до второго,с3-расстояние от второго груза до третьего.m1-масса первого груза,m2-масса... https://www.cyberforum.ru/ pascal/ thread1484798.html

Puporev

Почетный модератор

64288 / 47587 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

24.06.2015, 08:13

Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В - Pascal - Ответ 7800688

24.06.2015, 08:13. Показов 1754. Ответов 1

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Сообщение от RENE5865

i3 – 17*i*n2 + n3

Это наверное так?
i³-17*i*n²+n³

Добавлено через 14 минут

Pascal

var n,i,a,b,c,k:integer;
begin
repeat
writeln('Введите 2 целых числа, не равных 0 и A<>B');
readln(a,b);
until(a*b<>0)and(a<>b);
write('n=');readln(n);
k:=0;
i:=1;
while(i<=n)and(k=0)do
 begin
  c:=i*i*i-17*i*n*n+n*n*n;
  if(c mod a=0)and(c mod b<>0) then k:=1;
  i:=i+1;
 end;
if k=1 then write('имеется')
else write('не имеется');
end.

Вернуться к обсуждению:
Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.06.2015, 08:13

Готовые ответы и решения:

Определить, что натуральное число a кратно числу b, но не кратно числу c.
Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и...

К заданному натуральному числу дописать слева цифру, чтобы полученное число было кратно 3
Заданному натуральному числу дописать слева цифру, чтобы полученное число было кратно 3. Получить...

В одномерном массиве найти элементы, значения которих кратно заданному числу
Помогите пожалуйста, я в программировании почти ноль, а надо решить вот эту задачку: в одномерном...

Проверить условие: количество строк матрицы, в которой все числа нечетные, кратно заданному числу
проверить, верно ли, что количество строк матрицы A(nxn), в которой все числа нечетные, кратно...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.06.2015, 08:13

Помогаю со студенческими работами здесь

Определить кратно ли введенное число числу 5?
Уважаемые кодеры помогите решить задачку по паскалю: 2) определить кратно ли введенное число...

Определить, есть ли хотя бы 1 элемент, равный заданному числу на главной диагонали квадратного массива
Составить программу, которая определяет, есть ли хотя бы один элемент, равный заданному числу на...

Определить, есть ли в некотором столбце массива хотя бы один элемент, кратный заданному числу
Здравствуйте, есть такая задача: Дан двумерный массив целых чисел. Составить программу, которая...

Необходимо определить, есть ли в указанной строке хотя бы один элемент, равный заданному числу
Дан двумерный массив n×m элементов, заполненный целыми числами. Также заданы число a и номер строки...

Наверх