Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Топ:
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Определение места расположения распределительного центра: Фирма реализует продукцию на рынках сбыта и имеет постоянных поставщиков в разных регионах. Увеличение объема продаж...
Когда производится ограждение поезда, остановившегося на перегоне: Во всех случаях немедленно должно быть ограждено место препятствия для движения поездов на смежном пути двухпутного...
Интересное:
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Берегоукрепление оползневых склонов: На прибрежных склонах основной причиной развития оползневых процессов является подмыв водами рек естественных склонов...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Дисциплины:
2019-08-03 | 570 |
5.00
из
|
Заказать работу |
|
|
Решение. Прежде всего договоримся, что 1 и само число не будем считать за делители. Значит нужно проверить делится ли наше число N на такие числа 2,3,4,... N div 2.
Program Task7;
var
n,del: longint; {число и его делители}
k, kd: word; {k-количество всех делителей, kd-колич. делителей кратных 3}
begin writeln(‘введите число’);
readln(n); k:=0; kd:=0;
for d:=2 to n div 2 do { проверяем все числа от 2 до половины числа}
if n mod d=0 then begin {если число на него делится}
inc(k); { то это наш делитель и если}
if d mod 3 =0 then inc(kd); {на 3 делится}
end;
writeln(‘число имеет всего делителей -’,k);
writeln(‘из них кратных 3 -’,kd)
End.
8.3. Задачи для самопроверки.
1. (8)Найти НОД трех чисел.
Примечание. НОД(a,b,c)=НОД(НОД(a,b),c).
2. (9)Два числа называются взаимно простыми, если их наибольший общий делитель равен 1. Проверить, являются ли два данных числа взаимно простыми.
3. (10)Найти наименьшее общее кратное (НОК) чисел n и m, используя соотношение
НОК(n,m)= .
4. (11)Даны натуральные взаимно простые числа n,p. Найдите такое m, что, во-первых, m<p, во-вторых, произведение чисел m и n при делении на p дает остаток 1.
5. (12)От прямоугольника 324х141 отрезают квадраты со сторонами 141, пока это возможно. Затем вновь отрезают квадраты со стороной, равной 324-2*141=42 и т.д. На какие квадраты и на сколько квадратов будет разрезан прямоугольник?
6. (13)Написать программу для нахождения НОД, используя следующие соотношения:
НОД(2a,2b)=2НОД(a,b);
НОД(2a,b)=НОД(a,b) при нечетном b.
В программе не должно использоваться деление с остатком. Можно лишь делить на 2 и проверять числа на четность.
|
7. (14,15,16)Даны натуральные числа m и n. Найти такие натуральные взаимно простые p и q, что
Контрольные задания.
Вариант № 1
1. Найти количество делителей натурального числа. Сколько из них четных?
2. Найти все натуральные числа a, b и с из интервала от 1 до 20, для которых выполняется равенство a2+b2=c2.
Вариант № 2
1. Найти сумму нечетных делителей натурального числа.
2. Найти все равновеликие прямоугольники, стороны которых выражены натуральными числами a, b, а площадь равна S (a и b из интервала от 1 до 20, а площадь вводится с клавиатуры).
Вариант № 3
1. Найти все натуральные числа из промежутка от 1 до 200, у которых количество делителей равно К (К вводится с клавиатуры.)
2. Найти все натуральные числа a, b и с из интервала от 1 до 20, для которых выполняется равенство a+b2=c2.
Вариант № 4
1. Найти все натурального числа из промежутка от 1 до 200, у которых сумма делителей равна С (С вводится с клавиатуры).
2. Найти все такие тройки натуральных чисел a, b и с из интервала от 1 до 20, для которых выполняется равенство a2-b2=c2.
Вариант № 5
1. Найти количество делителей натурального числа, больших К (К вводится с клавиатуры).
2. Найти все натуральные числа a, b и с из интервала от 1 до 20, для которых выполняется равенство a2b=c2.
Вариант № 6
1. Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей.
2. Найти все натуральные числа a, b и с из интервала от 1 до 20, для которых выполняется равенство a3+b3=c3.
Вариант № 7
1. Найти все натурального числа из промежутка от 100 до 300, у которых сумма делителей равна К (К вводится с клавиатуры).
2. Найти все такие тройки натуральных чисел a, b и с из интервала от 1 до 20, для которых выполняется равенство a2+b2-c2=0.
Вариант № 8.
1. Найти все натуральные числа из промежутка от a до b, у которых количество делителей превышает заданное число С.
2. Найти все натуральные числа a, b и с из интервала от 1 до 20, для которых выполняется равенство a+b=c2.
|
Вариант № 9
1. Найти сумму четных делителей натурального числа.
2. Найти все равновеликие прямоугольные треугольники, катеты которых выражены натуральными числами a, b, а площадь равна S (a и b из интервала от 1 до 20, а площадь вводится с клавиатуры).
Вариант № 10.
1. Найти количество нечетных делителей натурального числа, больших К
(К вводится с клавиатуры).
2. Найти все натуральные числа a, b и с из интервала от 1 до 20, для которых выполняется равенство ab2=c2.
Вариант 11.
1. Найти натуральное число от 1 до 10 000 с максимальной суммой делителей.
2. Даны натуральные числа n и m. Получить все натуральные числа меньшие n, квадрат суммы цифр которых равен m.
Вариант 12.,13,14,15,16
1. Вычислить
2. Дано 100 вещественных чисел. Вычислить разность между максимальным и минимальным из них.
Дополнительное задание:
1-Опишите на русском языке или на одном из языков программирования алгоритм вычисления разности между средним арифметическим максимального и минимального значений элементов заданного целочисленного массива из 30 элементов и средним арифметическим всех элементов этого массива.
Исходные данные объявлены так, как показано ниже.
uses crt;
const n=30;
type massiv=array[1..n] of integer;
var a:massiv;
min,max,i,sum:integer;
sred1,sred2:real;
Begin
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
...
End.
2-Опишите на русском языке или на одном из языков программирования алгоритм подсчета суммы всех отрицательных элементов заданного целочисленного массива размером 30 элементов. Если отрицательных элементов нет, сообщите об этом.
Исходные данные объявлены так, как показано ниже.
const
N = 30;
var
a: array [1..N] of longint;
s, i:integer;
begin
for i:= 1 to N do
readln(a[i]);
...
end.
|
|
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!