Страница 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.
