1.
var i,j:integer; p,s:real;
begin
s:=0;
for i:=1 to 5 do
begin
p:=1;
for j:=1 to 6 do p:=p*(i+j)/20;
s:=s+p;
end;
writeln('s=',s);
<span>end.
2.В этой задаче используется тип real, так как числа получаются ОЧЕНЬ БОЛЬШИЕ
var n,k:integer; p1,p2,s:real;
begin
p1:=1;
for n:=1 to 5 do p1:=p1*n;
p2:=1;
for k:=1 to 30 do p2:=p2*k;
s:=p1+p2;
writeln(p1,' ',p2);
writeln('s=',s);
<span>end.</span>
</span>
<span>program</span><span>factorial</span><span>;</span>
<span>function</span><span>fact</span><span>(</span><span>n</span><span>:</span><span>integer</span><span>)</span><span>:</span><span>longint</span><span>;</span><span>begin</span><span>if</span><span>(</span><span>n</span><span>=</span><span>0</span><span>)</span><span>then</span><span>fact</span><span>:=</span><span>1</span><span>else</span><span>fact</span><span>:=</span><span>n</span><span>*</span><span>fact</span><span>(</span><span>n</span><span>-</span><span>1</span><span>)</span><span>;</span>
<span>end</span><span>;</span>
<span>var</span><span>n</span><span>:</span><span>integer</span><span>;</span>
<span>begin</span>
<span>for</span><span>n</span><span>:=</span><span>0</span><span>to</span><span>16</span><span>do</span>
<span>writeln</span><span>(</span><span>n</span><span>,</span><span>'! = '</span><span>,</span><span>fact</span><span>(</span><span>n</span><span>))</span><span>;</span><span>end</span><span>.</span>
1111011
6 единиц, и снова здравствуйте!
Ответ:
TWITTER
Объяснение:
Переводим последние 7 символов в 16-ричную форму:
1010100 = 54
1010111 = 57
1001001 = 49
1010100 = 54
1010100 = 54
1000101 = 45
1010010 = 52
Открываем таблицу ASCII (пользовался вики) и сопоставляем символы: 54 = T, 57 = W, 49 = I, 45 = E, 52 = R
P. S. Можно переводить не в 16-ричную, а сразу в десятичную, тогда будет:
1010100 = 84
1010111 = 87
1001001 = 73
1010100 = 84
1010100 = 84
1000101 = 69
1010010 = 82
и далее по Вашей таблице опять же получится TWITTER