// 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.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036
program FibonachiNums;
function FibN(n: integer): BigInteger;
begin
var (f1, f2) := (BigInteger(1), BigInteger(1));
for var i := 3 to n do
(f1, f2) := (f2, f1 + f2);
result := f2;
end;
function FibSumN(n: integer): BigInteger;
begin
var (f1, f2) := (BigInteger(1), BigInteger(1));
var Sum: BigInteger;
if n = 0 then Sum := 0
else Sum := 1;
for var i := 2 to n do
begin
(f1, f2) := (f2, f1 + f2);
Sum += f1;
end;
result := Sum
end;
begin
Println('десятое число Фибоначчи:',FibN(10));
var n := 100;
Writeln($'{n}-е число Фибоначчи: ',FibN(n));
Println($'Сумма первых {n} чисел Фибоначчи:',FibSumN(n))
end.
512 К = 512 х 1024 = 524 288 (байт).
640 х 200 = 128 000 (пикселей).
Для кодирования 16 цветов потребуется 4 бита (2^4=16), т.е. 1/2 байта.
Поэтому весь набор пикселей занимает 128 000 х (1/2) = 64 000 байт.
Это позволяет разместить 524 288 / 64 000 ≈ 8 страниц.
первое действие в скобках второе уменьшить
Да правильно составлено логическое выражение для схемы