<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=BigInteger(0);
var f:=BigInteger(1);
for var i:=1 to ReadInteger('n=') do begin
f*=i;
s+=f
end;
Writeln('S= ',s)
end.
<u>Примеры</u>
n= 5
S= 153
n= 20
S= 2561327494111820313
n= 100
S= 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
begin
var a := ReadArrInteger(15);
for var i := 14 downto 0 do
Println(a[i]);
end.
t = I / v
# I - информационный объём
# v - скорость передачи информации
I = n * l * h * i
# n - количество изображений
# l - длина изображения в пикселях
# h - ширина изображения в пикселях
# i - информационный вес одного пикселя
N = 2^i
# N - мощность алфавита
# i - информационный вес одного пикселя
2^i = 256 =>
i = 8 бит/пиксель = 1 байт/пиксель
v = 144000 бит/сек = 18000 байт/сек
t = n * l * h * i / v = (6 * 300 * 200) пикселей * 1 байт/пиксель / 18000 байт/сек = 20 сек.
Ответ: 20 сек.
Program chik;
var x,y:real;
begin
readln(x,y);
if((y<=2)and(x>=-3)and(x<=2)and(y>=0))or
((y<=0)and(x>=-1)and(x<=1)and(y>=-1)and(x*x+y*y<=1))then
writeln('ПРИНАДЛЕЖИТ')else writeln('Не принадлежит');
<span>end.</span>
