Var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summa<20000 do begin
summa:=summa*k;
time:=time+1;
end;writeln('Ответ:',time + month);
end.
Смотря о чем ты
выберешь нужный
1 вариант
Копирование
создание
перемещение
удаление
2 вариант
Это относится к информации вообще
Хранение
Обработка
Передача
выбери что нужно или по канкретней вопрос в коментарии
.............................................