Составьте метод на Паскаль пожалуйста

Составьте алгоритм на Паскаль пожалуйста

Задать свой вопрос
1 ответ
Var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summalt;20000 do begin   
  summa:=summa*k;  
  time:=time+1;
  end;writeln('Ответ:',time + month);  
end.  
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт