Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
1) количество возможных комбинаций это кол во символов в алфавите в степени числа букв в слове - при 2-х символах количество возможных слов равно 2^3=8 < 12 это нам не подходит при 3-х символах количество возможных слов равно 3^3=27 > 12
<span>2)тут все чуть сложнее, нехватку условий дополню сам. смысл такой - рас утверждение говорит нам о клетке А и несет 4 бита значит именно 16 тигров находится в этом вальере(2 в 4степени) следовательно самый простой способ определения, при том условии что именно на этих условия шло сообщение о тигре альбиносе, это бональное вычитание 64-16=48. но повторюсь еще раз, как по мне так условий явно нехватает
токо 12
</span>
Program pr;
var
a,s,p : real;
begin
writeln('Введите сторону квадрата');
readln(a);
s := a*a;
p := 4*a;
writeln('Площадь = ');
write(s);
writeln('Периметр = ');
write(p);
readln();
end.
Program nums;
<span>var num:array[1..1000] of integer;
</span><span>var i,maxnum: integer;
</span><span>
begin
</span><span>Randomize;
</span><span>for i:=1 to 1000 do num[i] := random(1000000);
</span><span>for i:=1 to 1000 do
</span><span>begin
</span><span>if num[i] > maxnum then maxnum:=num[i];
</span><span>end;
</span><span>Writeln('самое большое число ',maxnum);
</span><span>end.</span>