Question

Царевна-лягушка съедает ежедневно на 20 комаров больше, чем в предыдущий день, и еще 2 комара. Выведите на экран, через сколько дней количество съеденных комаров превысит 100. Количество съеденных комаров в первый день задать random, в пределах 20. Решить в паскале.​

Answer 1

Ответ:

var d:integer;

k:real;

begin

d:=1;

k:=12;

while k<=30 do

begin

d:=d+1;

k:=int(k*1.2)+2

end;

writeln(d)

end.

Объяснение:

.