Var a,b,i,n: integer;
begin
a := 1;
b := 1;
read(n);
for i := 2 to n do
begin
b := a + b;
a := b - a
end;
write(b)
end.
// PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
Var s:string;i:longint;
Begin
readln(s);
readln(i);
writeln(s[i]);
End.
В задании перечислено 7 цветов, значит для кодирования 1 пикселя потребуется log(2)7 ≈ 3 бита
#include <iostream>
using namespace std;
int main()
{
int a,b,sum;
cin>>a;
cin>>b;
sum=0;
while(a<=b)
{
sum=sum+a;
a=a+1;
}
cout<<sum;
return 0;
}