В первой задаче решение вроде бы очевидно (смотрите листинг), но при слишком большом отношении расстояния до болота к длине прыжка функция, описывающая движение лягушки, превращается в бесконечно убывающий ряд. Предлагаю самостоятельно дополнить решение необходимым условием, учитывающим эту особенность задачи.
Код:
program kwaken;
var dlin, s: real;
n:integer;
begin
writeln('Input length');
readln(dlin);
writeln('Input distance');
readln(s);
while s>0 do begin
s:=s-dlin;
dlin:=dlin/2;
inc(n); end;
writeln('Quantity of jumps to a bog',n);
readln
end.
Вторая задача:
Код:
program TimeOfDays;
var n: integer;
begin
n:=25;
while (n>24) or (n<0) do begin
writeln('Input time');
readln(n); end;
case n of
0..5,24: writeln('Доброй ночи');
6..11: writeln('Доброе утро');
12..16:writeln('Добрый день');
17..23:writeln('Добрый вечер'); end;
readln
end.