Дано N отрезков провода. Получить из них К равных отрезков провода

@Элизабет Тейлор · Регистрация: 22.12.2011

Author24 — интернет-сервис помощи студентам

Дано N отрезков провода длиной L1, L2,…,Ln сантиметров. Требуется разрезанием получить из них К равных отрезков провода как можно большей длины, являющейся целым числом.

@Puporev · 29.12.2011, 12:43

Элизабет Тейлор, Вроде нужно найти НОД этих чисел и разделить на него все числа, а количество посчитать.

Добавлено через 1 минуту
НОД массива можно искать так.

Pascal

uses crt;
function Nod(a,b:integer):integer;{определение НОД двух чисел}
begin
 while a<>b do
 if a>b then a:=a-b else b:=b-a;
 Nod:=a;
end;
 
var a:array[1..100] of integer;
    n,i:byte;
    k:integer;
begin
clrscr;
write('Введите кол-во элементов n=');
readln(n);
writeln('Введите элементы массива: ');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=Nod(a[1],a[2]);
for i:=3 to n do k:=nod(k,a[i]);
writeln('Общий НОД всех элементов=',k);
readln
end.

@Элизабет Тейлор · 29.12.2011, 12:59 **[ТС]**

эм.. программа все время выдает в ответе единицу

@Puporev · 29.12.2011, 13:34

Смотря что вводить, например введите
n=3
a[1]=6;a[2]=12;a[3]=24;

@Элизабет Тейлор 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 11
		1
	Дано N отрезков провода. Получить из них К равных отрезков провода 29.12.2011, 12:39. Показов 6410. Ответов 3 Метки нет (Все метки) Дано N отрезков провода длиной L1, L2,…,Ln сантиметров. Требуется разрезанием получить из них К равных отрезков провода как можно большей длины, являющейся целым числом. 0

@Элизабет Тейлор 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 11
	29.12.2011, 12:59 [ТС]	3
	эм.. программа все время выдает в ответе единицу 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.12.2011, 13:34	4
	Смотря что вводить, например введите n=3 a[1]=6;a[2]=12;a[3]=24; 0