Решить с оператом writeln лягушка съедает ежедневно на 20% комаров больше, чем предыдущий день и еще два комара. через сколько дней она съест больше 100 комаров за день, если в первый день было съедено 15 комаров

104

418

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

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

вероника1062

Информатика

4,7(54 оценок)

Program komari; var a: array[1..100] of real; k, i: integer; begin writeln('введите съеденное количество комаров в 1 день') readln(a[1]); fot i: =2 to n do begin k: =k+1; a[i]: =a[i-1]*0.2+2; a[i]: =trunc(a[i]); if a[i]> =100 then exit; end; writeln('через ',k,' дней лягушка съест больше 100 комаров в день'); end.