1 / 1 / 0
Регистрация: 28.05.2009
Сообщений: 19
1

Составить программу для нахождения наибольшего общего делителя

28.05.2009, 20:11. Показов 1992. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Народ,помогите решить следующие задачки по Pascal:
1)
Даны натуральное число N и последовательность A1, A2, …,A N, AN+1. Определить наибольшее из нечетных и количество четных чисел, входящих в последовательность A1, A2, …,A N, AN+1.
2)
Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел (НОК(А, В)=(А*В)/НОД(А, В)).
Буду очень благодарен!Заранее спасибо!
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2009, 20:11
Ответы с готовыми решениями:

Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел
Доюрый день! помогите пожалуйста мне решить задачей Организация процедур, использование процедур...

Составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел
составить программу для нахождения наибольшего общего и наименьшего общего кратного двух...

Написать программу нахождения наибольшего общего делителя двух чисел
ПоМоГиТе получить зачет Написать программу нахождения наибольшего общего делителя двух чисел....

Составить программу определения наибольшего общего делителя двух неотрицательных чисел НОД (a, b) по алгоритму Евклида.
Доброго времени суток. Есть такая вот задачка: Составить программу определения наибольшего...

2
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
29.05.2009, 09:55 2
Лучший ответ Сообщение было отмечено PR0Z0N как решение

Решение

№1.
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
uses crt;
var a:array[1..100] of integer;
    n,i,mx,k:integer;
begin
clrscr;
randomize;
write('n=');
readln(n);
writeln('Massiv:');
for i:=1 to n+1 do
 begin
  a[i]:=random(20)+1;
  write(a[i],' ');
 end;
writeln;
k:=0;mx:=0;
for i:=1 to n+1 do
 begin
  if a[i] mod 2=0 then k:=k+1;
  if (a[i] mod 2<>0)and(a[i]>mx) then mx:=a[i];
 end;
writeln('Max nechetn=',mx);
write('Kol chetn=',k);
readln
end.
№2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b:integer;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y; 
end;
Begin
clrscr;
Write ('Vvedite a b:');
Readln(a,b);
Writeln('NOK ',a,' ',b,' = ',NOK(a,b));
Readln;
End.
2
1 / 1 / 0
Регистрация: 28.05.2009
Сообщений: 19
30.05.2009, 10:47  [ТС] 3
Puporev,Большое спасибо!))
0
30.05.2009, 10:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2009, 10:47
Помогаю со студенческими работами здесь

Составьте программу определения наибольшего общего делителя двух натуральных чисел
1. Составьте программу получения в порядке убывания всех делителей данного числа. for i:=n downto...

Нахождение наибольшего общего делителя
1.набрать и отладить программу нахождения наибольшего общего делителя и протестировать её на...

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

Рекурсия: поиск наибольшего общего делителя двух чисел
Помогите плиз... Нахождение наибольшего общего делителя двух чисел.


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

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

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