Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Программа проверки знания даты основания Петропавловской крепости https://www.cyberforum.ru/ turbo-pascal/ thread977909.html Всем, привет!!! Напишите, пожалуйста программу проверки знания даты основания Петропавловской крепости. В случае неверного ответа пользователя программа должна выводить правильный ответ. (12 июля 1752)	Turbo Pascal Написать функцию подсчитыающую количество цифр числа написать функцию подсчитыающую количество цифр числа. используя ее определить в каком числе из двух данных чисел больше цифр.
Turbo Pascal Составить программу, подсчитывающую в строке кол-во слов, начинающихся и оканчивающихся одинаковыми символами https://www.cyberforum.ru/ turbo-pascal/ thread977839.html Помогите пожалуйста составить программу, подсчитывающую в строке кол-во слов, начинающихся и оканчивающихся одинаковыми символами.	Turbo Pascal Степень https://www.cyberforum.ru/ turbo-pascal/ thread977829.html Помогите пожалуйста 1)Вывести на экран десять степеней целого числа х, введенного с клавиатуры, с разных позиций. 2)Определить, может ли шахматная ладья за один ход попасть из клетки с координатами (х1,у1) в клетку с координатами (х2,у2). 3)Напечатать в виде таблицы значения функции у=3х2+4/х-7, для значений х, изменяющегося то 10 до 10 с шагом 1.5. x ...
Turbo Pascal Возвести число в степень необходимо записать примеры на языке паскаля: 1) (2х+4) в степени 1,2 2) (2х+4) в степени 5/6	Turbo Pascal Напимать программу и алгоритм 1. В сборе картофеля принимают участие две бригады. Учет ведется с помощью ЭВМ. Составить программу, которая определяет, сколько картофеля собрала каждая бригада за день. 2. Сформировать одгомерный массив из N членов арифметической прогрессии, с первым членом a1 и разностью прогрессии r. Формула арифметической прогрессии an=a1+(n-1)r. 4 Сформировать матрицу размером N×3N, составленную из... https://www.cyberforum.ru/ turbo-pascal/ thread977788.html
Turbo Pascal Вычислить значение выражения Исходные данные должны вводиться с проверкой на область допустимых значений файл с примером загружен https://www.cyberforum.ru/ turbo-pascal/ thread977776.html	Turbo Pascal Вычислить сумму ряда с заданной степенью точности a Помогите пожалуйста)
Turbo Pascal В одномерном массиве, состоящем из n вещественных элементов, вычислить минимальный элемент и поменять его с последним. https://www.cyberforum.ru/ turbo-pascal/ thread977667.html В одномерном массиве, состоящем из n вещественных элементов, вычислить минимальный элемент и поменять его с последним.	Turbo Pascal Вычисление простого математического выражения https://www.cyberforum.ru/ turbo-pascal/ thread977657.html Здравствуйте. Помогите пожалуйста написать программу для вычисления вот такого выражения. Паскаль не знаю совершенно. Заранее благодарен)))) задание во вложении
Прерывания для RS-485 Turbo Pascal Доброго времени суток! Помогите решить задачу. Есть интерфейсная 2-х портовая плата RS-485. На ней джамперами выставлены адреса и прерывания для портов 1 - 200h/Irq7, 2 - 208h/Irq5. Нужно смастерить обработчик прерываний для этих портов. Пересмотрел много полезных ссылок, ну не выходит каменный цветок, хоть убейся. Делал по аналогии с нижеприведенным кодом. Uses crt,dos; Var stv : procedure;...	Turbo Pascal Вычислить сумму ряда Я в процессе обучения https://www.cyberforum.ru/ turbo-pascal/ thread977628.html

Puporev

Почетный модератор

64291 / 47589 / 32740

Регистрация: 18.05.2008

Сообщений: 115,181

15.10.2013, 12:16

Наименьший общий знаменатель - Turbo Pascal - Ответ 5185079

15.10.2013, 12:16. Показов 5121. Ответов 1

Метки (Все метки)

Сообщение было отмечено Анатолий96 как решение

Решение

Pascal

uses crt;
function NOK(n1,n2:longint):longint;
var m,nk:longint;
begin
if n1>n2 then m:=n1 else m:=n2;
nk:=m-1;
repeat
 inc(nk);
until ((nk mod n1)=0) and ((nk mod n2)=0);
NOK:=nk;
end;
var a,b,c:longint;
begin
clrscr;
repeat
writeln('Введите знаменатели 3х дробей от 2 до 1200:');
readln(a,b,c);
until(a>1)and(a<=1200)and(b>1)and(b<=1200)and(c>1)and(c<=1200);
write('Наименьший общий знаменатель=',NOK(NOK(a,b),c));
readln
end.

Вернуться к обсуждению:
Наименьший общий знаменатель Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.10.2013, 12:16

Готовые ответы и решения:

Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D.
Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D....

В массиве наименьший элемент поместить на первое место, наименьший из оставшихся на последнее
Колокол. В массиве A(n) наименьший элемент поместить на первое место, наименьший из оставшихся на...

Найти наименьший член последовательности, наименьший из положительных членов, наибольшее из попарных произведений
В таблицу занесена последовательность из 10 чисел, взятых в проме- жутке от –5 до 5. Найти: ...

Найти наименьший элемент матрицы и от элементов всех столбцов, за исключением первого, вычесть наименьший
Двумерные массивы. Ввести матрицу А размером m*n, найти наименьший элемент и от элементов всех...

	15.10.2013, 12:16

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.10.2013, 12:16

Помогаю со студенческими работами здесь

Найти знаменатель геометрической прогрессии
(Аn)-геометрическая прогрессия.А4=-1 А7=27 помогите пожалуйста найти знаменатель этой прогрессии с...

Найти числитель и знаменатель несократимой правильной дроби
Даны натуральные M, N (M>N). Найти числитель и знаменатель несократимой правильной дроби p/q такой,...

Отсортировать рациональные числа в виде: <числитель> <знаменатель>
В файле Ratio содержатся рациональные числа в виде: <числитель> <знаменатель> Расположить их в...

Сократить дробь, чтобы числитель и знаменатель были взаимнопростые
Даны два натуральных числа :m,n (1..9999),образующие дробь вида m/n. ократить дробь, что бы...

Наверх