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>
Uses crt;
Var
mas:array[1..10, 1..10] of integer;
i,k,minln,pr:integer;
Begin
minln:=0;
for i:=1 to 10 do
for k:=1 to 10 do
mas[i,k]:=random(10)+1;
for i:=1 to 10 do begin if minln>0 then break; pr:=0;
for k:=1 to 10 do begin if (mas[i,k] mod 2 = 0) then pr:=pr+1;
if (pr = 10) then minln:=i;
end; end;
Writeln('Минимальный номер строки с чётными числами - ',minln);
Writeln('Вот она');
for k:=1 to 10 do write (mas[minln,k],' ');
<span>End.</span>
Начало
Вводим a=0
далее выполняется действие:
x=a*2=0*2=0
условие:
0<10 да, далее выполняется действие:
x=x-5=0-5=-5
вывод х=-5;
конец.
Также и с остальными:
начало
ввод а=2
х=2*2=4
4<10
х=4-5=-1
вывод х=-1;
Конец.
Начало
ввод а=4
х=4*2=8
8<10
х=8-5=3
вывод х=3
конец.
Начало
ввод а=6
х=6*2=12
12>10
х=12+6=18
вывод х=18
конец.
Начало
ввод а=8
х=8*2=16
16>10
х=16+6=22
вывод х=22
Конец.
ближайшее большее число(но не меньшее, т.к. сообщение тогда не поместится), равное степени двойки(2,4,8,16,32,64,128,256....) это 256. 256-это два в восьмой степени. значит номер каждого спортсмена весит 8 бит. 8*120(половина спортсменов)=960 бит
или 8 бит-1 байт, тогда ответ 120 байт(те же 960 бит)