Страница 162 §3.5 номер 5, ГДЗ по информатике за 8 класс к учебнику Босовой

program z5_26;var k: integer; A, B, C: real;begin write('A, B, C> '); readln(A, B, C); k := 0; repeat A := A + 0.15 * A - B; k := k + 1; until A < C; writeln( k, ' лет');end.program z5_27;var k, a, s: integer;begin k := 1; a := 5; s := a; while s < 324 do begin a := a + 4; s := s + a; k := k + 1 end; writeln('k=', k);end.program z5_28;var k, x: integer;begin write('Введи число >'); readln(x); k := 0; while x <> 0 do begin k := k + 1; x := x div 10 end; writeln('Количество цифр =', k);end.program z5_29;var s, p: real; k: integer;begin s := 10000; k := 0; p := 2 * s; while s < p do begin s := s + s * 0.05; k := k + 1 end; writeln('Вклад удвоится через ', k, ' лет')end.program z5_30;var k, t, x: integer;begin k := 1; t := 0; write('Введи х '); readln(x); while k < x do begin k := k * 2; t := t + 3 end; writeln('через ', t, ' часа', ' будет ', x, ' амёб')end.