Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите!!! Зависит полугодовая оценка по информатике!
Нужно:
1). Программа pascal turbo

Ответ оставил Гость

Uses Crt;
const
  p=5; { ежегодный процент }
  n100=100; { количество лет }
  n200=200; { количество лет }
  s0=1000; {начальная сумма }
  soz=100000; { на постройку общественных зданий }
  sb=1061000; { оставить жителям Бостона }
var
  s,s100,s200:longint;
  k100,k200:real;
begin
  ClrScr;
  k100:=exp(n100*ln(1+p/100)); {процент за 100 лет}
  k200:=exp(n200*ln(1+p/100)); {процент за 200 лет}
  s100:=Trunc(s0*k100);
  Writeln(Через первые 100 лет сумма составит ,s100);
  Writeln(На постройку общественных зданий: ,soz);
  s:=s100-soz;
  Writeln(Остаток: ,s);
  s100:=Trunc(s*k100);
  Writeln(Через вторые 100 лет сумма составит ,s100);
  Writeln(Оставить бостонским жителям: ,sb);
  Writeln(Правлению Массачусетской общины: ,s100-sb);
  Writeln(*** За ,n200, лет, если бы сумм не снимали: ,
    Trunc(s0*k200));
  Readkey;
end. 

Тестовое решение:
Через первые 100 лет сумма составит 131501
На постройку общественных зданий: 100000
Остаток: 31501
Через вторые 100 лет сумма составит 4142421
Оставить бостонским жителям: 1061000
Правлению Массачусетской общины: 3081421
*** За 200 лет, если бы сумм не снимали: 17292580