На отрезке длины A размещены максимально возможное количество отрезков длины B

@Aeka · Регистрация: 20.11.2010

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

Даны положительные числа A и B (A>B). На отрезке длины A размещены максимально возможное количество отрезков длины B (без наложении). Не используя операции умножения и деление, найти количество отрезков B, размещенных на отрезке A.

@Puporev · 30.11.2010, 10:54

Pascal

if b>a then k:=0
else
 begin
  k:=0;
  while a>b do 
   begin
    a:=a-b;
    k:=k+1;
   end;
 end;

@TexnoKill · 21.12.2013, 17:52

Вот наиболее оптимальный код без if

Pascal

program q1;
var a,b,k:integer;
begin
readln (a,b);
k:=0;
while a>b do
begin
a:=a-b;
k:=k+1;
end;
writeln ('Максимальное кол-во целых отрезков = ',k);
end.

@Puporev · 21.12.2013, 17:53

Сообщение от TexnoKill

оптимальный код без if

А у кого с if?

@TexnoKill · 21.12.2013, 18:58

У тебя с if написан код

if b>a then k:=0
else
begin
k:=0;
while a>b do
begin
a:=a-b;
k:=k+1;
end;
end;

@Puporev · 21.12.2013, 19:35

Глазастый, правда 3 года разглядывал...

@Aeka 0 / 0 / 0 Регистрация: 20.11.2010 Сообщений: 22
		1
	На отрезке длины A размещены максимально возможное количество отрезков длины B 30.11.2010, 10:18. Показов 15527. Ответов 5 Метки нет (Все метки) Даны положительные числа A и B (A>B). На отрезке длины A размещены максимально возможное количество отрезков длины B (без наложении). Не используя операции умножения и деление, найти количество отрезков B, размещенных на отрезке A. 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2013, 17:53	4
	Сообщение от TexnoKill оптимальный код без if А у кого с if? 0

@TexnoKill 0 / 0 / 1 Регистрация: 21.12.2013 Сообщений: 12
	21.12.2013, 18:58	5
	У тебя с if написан код if b>a then k:=0 else begin k:=0; while a>b do begin a:=a-b; k:=k+1; end; end; 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2013, 19:35	6
	Глазастый, правда 3 года разглядывал... 0