Напишите программу : винипух съедает 100 грамм варенья в первый день, во второй день ещё 100 грамм, в третий день 200 грамм, в каждый последующий день он съедает кол-во варенья равное сумме количества варенья в 2 прошедших дня. за сколько дней он съест к грамм варенья? паскаль 10 класс

118

285

Посмотреть ответы 2

Ответы на вопрос:

Pro100iraa

Информатика

4,5(85 оценок)

Var k,k1,k2,kn,n,s: integer; begin write('k = '); readln(k); k1: =100; k2: =100; s: =k1+k2; if k< =k1 then n: =1 else n: =2; while s< k do begin n: =n+1; kn: =k1+k2; s: =s+kn; k1: =k2; k2: =kn; end; writeln('n = ',n); end. пример: k = 1100n = 5