Примерно вот так:
var dist: real;
days: integer;
begin
dist:= 10;
days:= 0;
while dist < 30 do
dist:= dist * 1.15;
days:= days + 1;
end;
writeln(days);
end.
Программа выводит одну цифру - количество дней.
Примерно вот так:
var dist: real;
days: integer;
begin
dist:= 10;
days:= 0;
while dist < 30 do
begin
dist:= dist * 1.15;
days:= days + 1;
end;
writeln(days);
end.
Программа выводит одну цифру - количество дней.