Var
i,f, f0, f1: integer;
begin
f0 := 0;f1 := 1;
write(f0:4, f1:4);
for i := 1 to 8 do
begin
f := f1 + f0;
write(f:4);
f0 := f1;
f1 := f;
end;
end.
Тестовое решение:
0 1 1 2 3 5 8 13 21 34
3 квітки з кожної сторони = 12 квіток
Іпо 4 кутам по 1 квітці, тобто 1 кутова квітка буде відноситись до кожної-стороні.
Я виклав своє рішення, але краще подумати самому
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(98)+2;
write('заполненный массив: ');
for i:=1 to 10 do write(a[i],' ');
end.
Таких можно написать очень много 4224 , 1221 ,2112, 3443, 4334