200 850 байт = 196,14 КБ = 0,19 МБ
===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.
В стандартных функциях такого никогда не встречал. Скорее всего это нестандартная процедура или функция, описанная пользователем в начале программы.
Дано
N1=256
N2=2 ( цвета черный и белый)
v2=v1-70
Найти v1/v2
V1=a*b*I1 I- глубина цвета
V2=a*b*I2
V1/v2=I1/I2 ( а и b сократится при делении)
Найдем I1 и I2 из формулы Хартли N=2^I
256=2^I I1= 8
2=2^I I2=1
V1/(v1-70)= 8/1
V1/(v1-70)=8 решим уравнение по свойству пропорции
8v1-560=v1
7v1=560
v1=80 байт