Question

Помогите пожалуйста,дам 100баллов
Царевна-лягушка съедает ежедневно на 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(c d)