Часы на циферблате: если использовать 24- часовую, то 8+7=15
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.
<em><u>Тестовое решение:</u></em>
Через первые 100 лет сумма составит 131501
На постройку общественных зданий: 100000
Остаток: 31501
Через вторые 100 лет сумма составит 4142421
Оставить бостонским жителям: 1061000
Правлению Массачусетской общины: 3081421
*** За 200 лет, если бы сумм не снимали: 17292580
Иванов , Петров, Сидоров
Сидоров, Петров, Иванов
Петров, Иванов,Сидоров
Петров, Сидоров, Иванов
Сидоров,Иванов, Петров.
Иванов, Сидоров, Петров.
Сидоров,Петров,Иванов
nst N=15;
var
a: array [1..N] of integer;
i,i1:integer;
flag:boolean;
begin
flag:=false;
for i:=1 to N do
begin
a[i]:=random(41)-20;
if (flag=false) and (a[i]<0) then
begin
i1:=i;
flag:=true;
end;
write(a[i]:4);
end;
writeln;
if flag then
writeln('Первое отрицательное на ',i1,' позиции')
else writeln('Отрицательных нет');
end.
