Var n,k,sum,i:integer;
begin
readln (n);
if (n<10)and(n>-10) then
for i:=1 to 10 do begin
if n mod i=0 then
sum:=sum+i;
k:=k+1;
end;
writeln(sum, ' ', k);
end.
<span><span>var k,n,i,s:integer;
begin
readln(k,n);
for i:=0 to n do s:=s+k+i;
writeln(s)
<span>end.
</span></span>
var k,n,i,s:integer;
begin
readln(k,n);
for i:=0 to n do s:=s+k+i;
writeln(s/(n+1))
<span>end.
</span>
var r,n,i,p:integer;
begin
readln(r,n);
p:=1;
for i:=0 to r do p:=p*(n+i);
writeln(p)
<span>end.
var r,i,p,x:integer;
begin
readln(r);
x:=1;
for i:=1 to r do
begin
x:=x*i;
p:=p+x;
end;
writeln(p)
<span>end.
var r,i,p,x:integer;
begin
readln(r);
p:=1;
for i:=1 to r do
begin
x:=x+i;
p:=p*x;
end;
writeln(p)
<span>end.
var m,n,t,i:integer;
begin
readln(t);
writeln('N':3,'M':5);
for i:=1 to (t div 2) do
begin
n:=i*2;
m:=sqr(n)-n;
writeln(n:3,m:5);
end;
<span>end.
var
y,m,n,i:integer;
x:real;
begin
readln(n,m);
writeln('Y':3,'X':10);
for i:=1 to m do
begin
y:=n*i;
x:=sqr(y)*(sqr(y)-y)/y;
writeln(y:3,x:10);
end;
<span>end.</span></span></span></span></span></span>
Контекстное, вроде больше нет
Необходимо умножить количество всех символов на кол-во информации, которое занимает 1 символ.
I=N*i=20*4=80 бит или 10 байт
1) 256=2^8 --> 8 бит ~ 1 пиксель
2) 8*640*400 =2^3 * 5*2^7 * 25*2^4 =125 * 2^14 бит =
=125 * 2 Кбайт = 250 Кбайт ~ 1 страница
3) 1 250 : 250 = 5 страниц
ответ 5 стр.
