Хватит ли ткани если первый кусок имеет длину R метров. Если хватит, выведите 1, иначе 0.

@tateli · Регистрация: 10.04.2013

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

Здравствуйте все! Случилось непредвиденное, вновь приходится учиться заочно, а в паскале полнейший нуль. Ребята кто нибудь помогите пожалуйста решением этих задач, буду очень признательна.

1. Имеется кусок ткани длиной L метров. От него должны последовательно отрезать N кусков ткани. Размер куска с каждым разом уменьшается на 10%. Хватит ли ткани если первый кусок имеет длину R метров. Если хватит, выведите 1, иначе 0.

Добавлено через 22 часа 35 минут

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

1. Имеется кусок ткани длиной L метров. От него должны последовательно отрезать N кусков ткани. Размер куска с каждым разом уменьшается на 10%. Хватит ли ткани если первый кусок имеет длину R метров. Если хватит, выведите 1, иначе 0.

Может у кого уже есть решение готовое, поделитесь пожалуйста

@Фаер · 11.04.2013, 13:07

Pascal

Var l,r:real; i,n:integer;
Begin
i:=0;
Write('l='); Readln(l);
Write('r='); Readln(r);
Write('n='); Readln(n);
While (l>0) and not(i=n) do
 Begin
  l:=l-r;
  r:=r*0.9;
  inc(i);
 End;
If (i=n) and (l>=0) then Write('1') Else Write('0');
End.

@tateli · 11.04.2013, 14:01 **[ТС]**

Огромнейшее СПАСИБО! Вы очень мне помогли!

@tateli 1 / 1 / 2 Регистрация: 10.04.2013 Сообщений: 10
		1
	Хватит ли ткани если первый кусок имеет длину R метров. Если хватит, выведите 1, иначе 0. 11.04.2013, 11:31. Показов 1547. Ответов 2 Метки нет (Все метки) Здравствуйте все! Случилось непредвиденное, вновь приходится учиться заочно, а в паскале полнейший нуль. Ребята кто нибудь помогите пожалуйста решением этих задач, буду очень признательна. 1. Имеется кусок ткани длиной L метров. От него должны последовательно отрезать N кусков ткани. Размер куска с каждым разом уменьшается на 10%. Хватит ли ткани если первый кусок имеет длину R метров. Если хватит, выведите 1, иначе 0. Добавлено через 22 часа 35 минут Сообщение от tateli 1. Имеется кусок ткани длиной L метров. От него должны последовательно отрезать N кусков ткани. Размер куска с каждым разом уменьшается на 10%. Хватит ли ткани если первый кусок имеет длину R метров. Если хватит, выведите 1, иначе 0. Может у кого уже есть решение готовое, поделитесь пожалуйста 0

@tateli 1 / 1 / 2 Регистрация: 10.04.2013 Сообщений: 10
	11.04.2013, 14:01 [ТС]	3
	Огромнейшее СПАСИБО! Вы очень мне помогли! 0

Хватит ли ткани если первый кусок имеет длину R метров. Если хватит, выведите 1, иначе 0.

Решение