Гусеница Гусеница ползет по резиновой нити длиной l см со скоростью см/мин, стремясь достичь противоположного конца нити. По истечении каждой минуты нить растягивается на k см. Составить программу определения времени, за которое гусеница достигнет конца нити. Если время в пути превышает допустимых значений, то вывести на экран сообщение «Маршрут не закончен».
Входные данные На вход программа получает числа l, и k. Все числа являются положительными и не превосходят 100. Выходные данные Программа должна вывести одно целое положительное число, равное количеству минут
Входные данные результат «Маршрут не закончен» «Маршрут не закончен»
Решение 1 Program gus1; var l1,l,k,v:integer; t:integer; begin read(l,v,k); t:=0; l1:=l; while l1>0 do begin l1:=l1-v+k; if(l<=l1)then break; inc(t); end; if t<>0 then writeln(t) else writeln('маршрут не закончен'); end.
Решение 2 program gus2; var l,k,v:integer; t:integer; begin read(l,v,k); if v-k<=0 then writeln('маршрут не закончен') else begin while l>0 do begin l:=l-v+k; inc(t); end; writeln(t); end; end.
Решение 3 program gus3; var l,k,v:integer; begin read(l,v,k); if v-k<=0 then writeln('маршрут не закончен') else writeln(round(l/(v-k))); end.