Помогите пожалуйста!

[GasoFF]

Помогите пожалуйста!

Здравствуйте, помогите пожалуйста написать программу к задаче представленной ниже.:tehnari_ru_837: желательно до пятницы и на паскале! Заранее спасибо!

 

[Vladimir_S]

Здравствуйте, помогите пожалуйста написать программу к задаче представленной ниже.:tehnari_ru_837: желательно до пятницы и на паскале! Заранее спасибо!

По-моему, так:

CONST
 Path:STRING='D:\';
VAR
 f:TEXT;
 x,y,p:REAL;
 m:BYTE;
BEGIN
 Assign(f,Path+'input.txt');
 ReSet(f);
 ReadLn(f,x,y,p);
 Close(f);
 Assign(f,Path+'output.txt');
 ReWrite(f);
 m:=0;
 REPEAT
  x:=x*(1+p/1200);
  x:=1.0*ROUND(x*100)/100;
  m:=m+1;
 UNTIL x>y;
 WriteLn(f,m);
 Close(f);
END.

Константу Path (путь к папке, где будут файлы) поставьте как Вам надо.

 

[GasoFF]

Огромное спасибо!

 

[GasoFF]

Многоуважаемый Vladimir_S, не могли бы помочь ещё вот с этой задачей:tehnari_ru_117:
Желательно до завтрашнего утра:tehnari_ru_325:

 

[Артём]

Совсем студенты расслабились.

 

[Vladimir_S]

Ладно. Вот:

CONST
 Path:STRING='D:\';
VAR
 f,f1:TEXT;
 S:STRING;
 i:INTEGER;
 m,t:BYTE;
BEGIN
 Assign(f,Path+'input.txt');
 ReSet(f);
 Assign(f1,Path+'output.txt');
 ReWrite(f1);
 REPEAT
  ReadLn(f,S);
  If S='' then
   begin
    For i:=1 to 80 do Write(f1,' ');
    WriteLn(f1);
   end else
   begin
    t:=1;
    While S[t]=' ' do
     begin
      t:=t+1;
     end;
    t:=t-1;
    m:=(Length(S)-t) div 2;
    If Length(S) mod 2 = 1 then m:=m+1;
    For i:=1 to 40-m do Write(f1,' ');
    For i:=t+1 to Length(S) do Write(f1,S[i]);
    WriteLn(f1);
   end;
 UNTIL EoF(f);
 Close(f);
 Close(f1);
END.

 

[DDS]

Хм, как плохо,
использовать форум для решения олимпиадных задач.
Я бы понял, если бы попросили объяснить решение или трудность какую-то или аналогичную задачу.
Но выкладывать задачи с интернет-олимпиады, которая сейчас идёт...
Вообщем, считаю это наглым жульничеством...:tehnari_ru_744:
PS для справки-это задания с 3 тура олимпиады по информатике, проводимой ИТМО.