Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
AMER
0 / 0 / 0
Регистрация: 16.06.2011
Сообщений: 27
#1

Найти наибольший общий делитель - Turbo Pascal

08.10.2011, 08:38. Просмотров 555. Ответов 1
Метки нет (Все метки)

даны натуральные числа a и b,найти их:
а)наибольший общий делитель
б)наименьшее общее кратное
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2011, 08:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти наибольший общий делитель (Turbo Pascal):

Найти наибольший общий делитель.
Даны два числа. Найти их наибольший общий делитель. Формат входных данных...

Найти наибольший общий делитель чисел a и b
Найти наибольший общий делитель чисел a и b. Зарание спасибо.

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

Найти наибольший общий делитель трех чисел
8.Найти наибольший общий делитель трех чисел.

Найти наибольший общий делитель двух чисел
найти наибольший общий делитель двух чисел a и b с помощью функции.

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

1
Zhexon
312 / 271 / 272
Регистрация: 25.09.2011
Сообщений: 477
08.10.2011, 18:13 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  uses TpCrt;
  var
    min,del,kr,a,b : Integer;
 
  Begin
    Write('Введите натуральные числа  через пробел a b: '); Readln(a,b);
 
    if a>b then begin
                  del:=b+1; min:=b; kr:=b;
                end
           else begin
                  del:=a+1; min:=a; kr:=a;
                end;
    repeat
      del:=del-1;
    until (del=0) or ((b mod del = 0) and (a mod del = 0));
 
    while not ((kr mod a = 0) and (kr mod b = 0 )) do kr:=kr+min;
    Writeln('Наибольший общий делитель: ',del);
    Writeln('Наименьшее общее кратное : ',kr);
    Readln;
  End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2011, 18:13
Привет! Вот еще темы с решениями:

Найти наибольший общий делитель и сумма квадратов
1) Составьте программу вычисления наибольшего общего делителя max и min...

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

Найти наибольший общий делитель двух чисел
Даны два натуральных числа A и B. Требуется найти их наибольший общий делитель....

Даны натуральные числа a и b. Найти их наибольший общий делитель
Даны натуральные числа a и b. Найти их наибольший общий делитель;


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

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

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