Var f1,g1,fn,gn:real;
begin
f1:=1;
g1:=1;
for var i:=2 to 5 do begin
fn:=f1-g1;
gn:=f1+2*g1;
writeln('F(',i,')=',fn,' G(',i,')=',gn);
f1:=fn;
g1:=gn;
end;
writeln('F(5)/G(5)=',fn/gn);
<span>end.
Результат:
F(2)=0 G(2)=3
F(3)=-3 G(3)=6
F(4)=-9 G(4)=9
F(5)=-18 G(5)=9
F(5)/G(5)=-2
</span>
Используем закон де Моргана и закон двойного отрицания.
Решение во вложении.
Если энциклопедия сохранена в юнекоде то там 1 символ равен 2 байтам. А у нас на странице символов на 13 килобайт.
1 килобайт равен 1024 байта.
13 килобайт равен 13312 байта.
13312 делим на 2 и получаем 6656 - это и есть наше количество символов на странице весом в 13 килобайт.
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.