Var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i);
writeln('Ответ: ',p);
<span>end.
var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
begin
i:=i+1;
p:=p*(a+i);
end;
writeln('Ответ: ',p);
<span>end.</span></span>
1. Алфавит это русский словарь букв.
256=2^8
16=2^4
Объём файла=кол-во символов*кол-во бит на 1 символ
то есть объём увеличится в 2 раза)
7 больших желтых яблок
все груши большие значит яблок больших 32-17=15
всего плодов 25+17=42 из них 28 желтых значит зеленых 42-28=14
зеленых яблок на 2 больше чем зеленых груш значит яблок зеленых 8 а груш 6
зеленые яблоки все большие значит 15-8=7
ответ 7