Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end
1 1 2 3 5 8 13 21 34...
Каждое следующие число это сумма двух предыдущих, например: 13 = 8 + 5
8 и 5 два предидущих числа для 13
Ответ:
$A$2+$B5
Объяснение:
$A не изменяется при копировании
$2 не изменяется при копировании
$B не изменяется при копировании
3 изменяется при копировании на +2 (8-6)
чтобы установить поля надо нажать на правую кнопку мышки и выбрать строку поля, чтобы интервал поставить надо выбрать строку интервала она находиться в строке формат, формулу нужна нажать вставку и выбрать там вставить формулу, чтоюы вставить картинку нужно выбрать вставку и нажать на значок картинки