Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/16: Рейтинг темы: голосов - 16, средняя оценка - 5.00
DEADSHOT
0 / 0 / 0
Регистрация: 29.01.2012
Сообщений: 4
1

Найти их наибольший общий делитель (НОД), используя алгоритм Евклид

30.01.2012, 23:05. Просмотров 3344. Ответов 1
Метки нет (Все метки)

21 Найти общий расход топлива N автоколонн за неделю. Известно, что каждая автоколонна состоит из 20 до 100 автомобилей. Каждый автомобиль за один день проезжает путь длиной от 5 до 150 километров. Расход топлива одного автомобиля от 20 до 28 литров на 100 километров. Вероятность того, что автомобиль неисправен – 10%.

22 Дано натуральное число п (п < 100).
а) Определить число способов выплаты суммы п руб. с по¬мощью монет достоинством 1, 2, 5 рублей и бумажных купюр достоинством 10 руб.
б) Получить все способы выплаты (указать, какие монеты и купюры и в каком количестве следует использовать).

Добавлено через 18 минут
26) Даны натуральное число п и целые числа а1 а2, ..., ап. Найти:
а) номер максимального из чисел а.. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них;
б) номер минимального из чисел а.. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них.
27 )В некоторых видах спортивных состязаний (например, в фигурном катании) выступление каждого спортсмена неза¬висимо оценивается несколькими судьями, затем из всей со¬вокупности оценок удаляются наиболее высокая и наиболее низкая, а для оставшихся оценок вычисляется среднее ариф¬метическое, которое и идет в зачет спортсмену. Если наибо¬лее высокую оценку выставили несколько судей, то из сово¬купности оценок удаляется только одна такая оценка; анало¬гично поступают и с наиболее низкими оценками.
Составить программу для расчета оценки, которая пойдет в зачет спортсмену.
28) Дано вещественное число X и целое число N (>0). Найти значение выражения
X — X 3/(3!) + X 5/(5!) — ... + (—1)N •X2N+1/((2 •N +1)!) (N! = 12...N). Полученное число является приближенным значением функции sin в точке X.
29)Дано целое число N (> 0). Найти сумму 11 + 22 + ... + NN.
Чтобы избежать целочисленного переполнения, вычислять слагаемые этой суммы с помощью вещественной переменной и выводить резуль¬тат как вещественное число
30 )Дано целое число N (> 1). Последовательность вещественных чисел AK определяется следующим образом:
A1 = 1, A 2 = 2, AK = (A к-2 + 2-Ak-1)/3, K = 3,4,... . Вывести элементы A1, A2, ..., AN.
31 )Дано целое число N (>0), являющееся некоторой степенью числа 2: N = 2к. Найти целое число K — показатель этой степени.
32 )Дан набор ненулевых целых чисел; признак его завершения — чис¬ло 0. Вывести сумму всех положительных четных чисел из данного набо¬ра. Если требуемые числа в наборе отсутствуют, то вывести 0
33 )Даны целые числа K, N, а также K наборов целых чисел по N эле¬ментов в каждом наборе. Для каждого набора вывести сумму его элемен¬тов.
34 )Даны целые числа K, N, а также K наборов целых чисел по N эле¬ментов в каждом наборе. Найти количество наборов, содержащих число 2. Если таких наборов нет, то вывести 0.
35 )Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + ... + 1/K будет больше A, и саму эту сумму.
36а) Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД^, B) = НОД^, A mod B), если B = 0; НОД^, 0) = A, где «mod» обозначает операцию взятия остатка от деления.
36 )Дано целое число N (> 1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего правого соседа, и количество K таких элементов.
37) Даны целые числа K, N, а также K наборов целых чисел по N элемен¬тов в каждом наборе. Для каждого набора вывести номер его последнего элемента, равного 2, или число 0, если в данном наборе нет двоек.
38 )Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.
39 )Описать процедуру SortInc3(A, B, C), меняющую содержимое пере¬менных A, B, C таким образом, чтобы их значения оказались упорядочен¬ными по возрастанию (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры упо¬рядочить по возрастанию два данных набора из трех чисел: (A1, B1, C1) и (A2, B2, C2).
40) Описать функцию Power4(x, a, е) вещественного типа (параметры x, a, е — вещественные, |x|<1; a, е >0), находящую приближенное значение функции (1 + x)a:
(1 + x)a = 1 + aх + a• (a—1) -x2/(2!) +... + a• (a—1) •... • (a—n+1)•xn/(n!) +... . В сумме учитывать все слагаемые, модуль которых больше е. С помощью Power4 найти приближенное значение (1 + x)a для данных x и a при шести данных е.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2012, 23:05
Ответы с готовыми решениями:

Найти наибольший общий делитель чисел M и N. Используйте теорему Эйлера: Если M делится на N, то НОД (N, M)=N, иначе НОД (N, M)= =НОД (M mod N, N).
Найти наибольший общий делитель чисел M и N. Используйте теорему Эйлера: Если M делится на N, то...

Найти наибольший общий делитель, используя алгоритм Евклида
Даны n натуральных чисел, Найти их наибольший общий делитель, используя алгоритм Евклида и...

Найти наибольший общий делитель двух заданных натуральних чисел, используя алгоритм Евклида
Найти наибольший общий делитель двух заданных натуральних чисел, используя алгоритм Евклида.

Используя алгоритм Евклида, найдите наибольший общий делитель m и n
Алгоритм Евклида нахождения НОД(m, n) основан на следующих свойствах этой величины: пусть m и n –...

1
Desperion
6 / 6 / 4
Регистрация: 28.01.2012
Сообщений: 22
01.02.2012, 22:39 2
Лучший ответ Сообщение было отмечено DEADSHOT как решение

Решение

36.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var n,a,b,k,i:integer;
    m:array[1..100] of integer;
begin
repeat
write('Длина последовательности? (коллво цыфр)');
readln(n);
until n>1;
writeln('введите последовательность из ',n,' целых чисел');
k:=0;
read(a);
for i:=2 to n do
 begin
  read(b);
  if b>a then
   begin
    k:=k+1;
    m[k]:=a;
   end;
  a:=b;
 end;
if k=0 then write('Нет числе')
else
 begin
  writeln('Числа, меньшие своего правого соседа');
  for i:=1 to k do
  write(m[i],' ');
  writeln;
  write('Их количество=',k);
 end;
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.02.2012, 22:39

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

Найдите наибольший общий делитель (НОД) одномерного масива натурального числа A[N].
Найдите наибольший общий делитель (НОД) одномерного масива натурального числа A.

Описать нерекурсивную функцию NOD2 (A, B) целого типа, находящую наибольший общий делитель (НОД)
3. Описать Нерекурсивные функцию NOD2 (A, B) целого типа, находящую наибольший общий делитель (НОД)...

Найти наибольший общий делитель (НОД) двух натуральных чисел M и N по алгоритму Евклида
Найти наибольший общий делитель (НОД) двух натуральных чисел M и N по алгоритму Евклида. Если M &gt;...

Наибольший общий делитель двух натуральных чисел A и B, используя алгоритм Евклида
помогите пожалуйста((( долго уже думаю над прогой.... вобщем задание... Описать не рекурсивную...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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