Var n, i: integer;
a, y: real;
begin
readln(a, n);
for i := 0 to n do
y := y + exp(ln(a) * I);
writeln(y);
end.
<span>
Работает =)</span>
В <em>head</em> внутри тега <span><title></span> заголовок <span><em><title></em><u><em>MySite</em></u><em></title></em></span>
Фон (если только HTML) - св-ва bgcolor и background у <em><body></em>: <span><em><body bgcolor="</em><u><em>red</em></u><em>"></em>
</span>
P.S. Прекрасный сайт об HTML и CSS: http://htmlbook.ru/
Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
запишем условие: символы=40, N=64, I-?
решение: зная мощность алфавита, найдем вес одного символа
N=2^i, подставим в эту формулу число 64 и получим
64=2^i, перепишем левую часть как 2^6
2^6=2^i, отсюда i=6 бит
определим объем сообщения I=K*i=40*6=240 бит=30 байт