Написать программу вычисления суммы: sin x + sin 2x + sin 3x + + sin nx

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var x:=ReadReal('x=');
  var s:=0.0;
  for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
  Writeln('s=',s)
end.

Тестовое решение
x= 0.543
n= 15
s=2.79048740821036

Задача 1

I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)

i = I / K

K = 1024 * 512 = 524288 пикселей

I = 1 Mb = 1 * 1024 * 1024 * 8 бит = 8388608 бит

Глубина цвета бит

Кол-во цветов в палитре цветов

ответ: 65536.0

Задача 2

I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)

i = I / K

K = 256 * 128 = 32768 пикселей

I = 16 Kb = 16 * 1024 * 8 бит = 131072 бит

Глубина цвета бит

Кол-во цветов в палитре цветов

ответ: 16.0

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=ReadInteger('n=');
  var s:=n mod 10;
  n:=n div 10;
  var d:integer;
  while n>0 do (d,n):=(n mod 10,n div 10);
  s+=d;
  Writeln('Сумма ',s);
  if s>10 then Writeln('Верно') else Writeln('Неверно')
end.

№2

begin
  var s:=ReadInteger('n=').ToString;
  var n:=s.Length;
  (s[1],s[n]):=(s[n],s[1]);
  s.Println;
  if s[n].ToDigit.IsEven then Writeln('Верно') else Writeln('Неверно')
end.

№3

begin
  var n:=ReadInteger('n=');
  var p:=1;
  while n>0 do begin
    var d:=n mod 10;
    if d.IsOdd then p*=d;
    n:=n div 10
    end;
  Writeln('Произведение ',p);
  If p.InRange(100,999) then Writeln('Верно') else Writeln('Неверно')
end.

№4

begin
  var n:=ReadInteger('n=');
  var k:=0;
  while n>0 do begin
    if n mod 10=5 then k+=1;
    n:=n div 10
    end;
  if k=3 then Writeln('Верно') else Writeln('Неверно')
end.

№5

begin
  var n:=ReadInteger('n=');
  var k:=1;
  Writeln('Делители: ');
  for var i:=1 to n div 2 do
    if n mod i=0 then begin
      Print(i);
      k+=1
      end;
  Writeln(n);
  if k.IsEven then Writeln('Верно') else Writeln('Неверно')
end.