Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вычислить сумму ряда https://www.cyberforum.ru/ pascal/ thread1301940.html
Помогите, пожалуйста, Вычислить значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x (x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps....
Координатная плоскость Pascal
Дан список точек плоскости с целочисленными координатами. Необходимо определить: 1) номер координатной четверти K, в которой находится больше всего точек; 2) точку A в этой четверти, наименее...
Сколько максимально килограмм макулатуры могут собрать ученики Pascal
Нужно решить задачу : В школе объявили сбор макулатуры. В школе учится N учеников. Каждый ученик имеет A кг макулатуры и может принести до B кг макулатуры. Выяснить, сколько максимально килограмм...
Pascal Поочередный вызов процедур Здравствуйте. У меня возникла проблема: мне нужно чтобы процедура 1 вызывала процедуру 2, потом процедура 2 обратно вызывала 1 процедуру, такая рекурсия. Но в процедуре которая стоит раньше в записи... https://www.cyberforum.ru/ pascal/ thread1301654.html
Pascal В первый массив поместить по возрастанию отрицательные, а во второй - по убыванию положительные двух данных массивов https://www.cyberforum.ru/ pascal/ thread1301643.html
Есть два одномерных массива с размерностью 10. Оба массива выводятся через рандом в диапазоне от -10 до 10. Надо переместить элементы так, чтобы в первом массиве были отрицательные элементы из двух...
Сортировка элементов Pascal
Дан массив из 15 элементов через рандом с любым диапазоном. Надо упорядочить первые 5 элементов по убыванию и последние 6 элементов по возрастанию.
В двумерном массиве поменять знаки элементов всех парных рядов Pascal
В двухмерном массиве поменять знаки элементов всех парных рядов.
Pascal Построить файл данных, компонентами которого являются вещественные числа. Вывести на экран все числа этого фай Построить файл данных, компонентами которого являются вещественные числа. Вывести на экран все числа этого файла, которые больше данного числа Х и меньше данного числа У. помогите пожалуйста https://www.cyberforum.ru/ pascal/ thread1301055.html
Pascal Найти сумму элементов массива с нечетным индексом, по модулю меньше K https://www.cyberforum.ru/ pascal/ thread1301036.html
По заданому условию сформировать одномерный массив (вектор), вывести на печать и произвести операции по обработке полученных компонента массива. Для всех вариантов исходными данными являются...
Pascal Определить цифры трехзначного числа и выяснить, можно ли построить прямоугольный треугольник Дано натуральное трехзначное число. Определить цыфры этого числа (K,L,M) и выяснить, можно ли построить прямоугольный треугольник K,L,M. https://www.cyberforum.ru/ pascal/ thread1301033.html
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.11.2014, 13:02 0

Используя только операции сложения и вычитания, найдите частное от деления нацело N на K, а также остаток

17.11.2014, 13:02. Просмотров 1350. Ответов 2
Метки (Все метки)

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

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function divNK(n,k : Longint) : Longint;
Begin
  If n>=k then divNK:=1+divNK(n-k,k) else divNK:=0;
end;
 
Function modNK(n,k : Longint) : Longint;
Begin
  While n>=k do Dec(n,k);
  modNK:=n;
end;
 
Begin
  Writeln(divNK(17,5));
  Writeln(modNK(17,5));
end.


Вернуться к обсуждению:
Используя только операции сложения и вычитания, найдите частное от деления нацело N на K, а также остаток
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2014, 13:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Используя только операции сложения и вычитания найти частное от деления
даны положительные числа n k используя только операции сложения и вычитания найти частное от...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления
Нужно решение задачи на языке С. Заранее благодарю))) Задача: Даны целые положительные числа N и...

Используя только операции сложения и вычитания, найти частное/остаток от деления нацело N на K (while)
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K
2) Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.