Uses crt;
var i,s,n:integer;
begin
s:=1;n:=0;
while (n<=0) do begin
writeln ('Введите неотрицательное число');
read (n);
end;
n:=n*2;
writeln ('Считаю все числа от 2 до ',n);
write ('1');
for i:=1 to n do begin
i:=i+1;
write ('*',i);
s:=s*i;
end;
writeln ;
writeln ('Произведение = ',s);
end.
P.s. Программа написана на языке Pascal ABC. По всем вопросам обращаться в комментарии !
А8=341=3*8^2+4*8^1+1*8^0=225
A6=341=3*6^2+4*6^1+1*6^0=133
A16=341=3*16^2+4*16^1+1*16^0=
A5=34,1=3*5^1+4*5^0+1*5^-1=
Последние две строчки сам посчитай.
Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Результат:
10! = 3628800
1)Включаешь комп
2)Включаешь интернет
3)Открываешь программу power point
4)Материал склеиваешь и делаешь